TOHANCHIK
5 год назад
1)Запишите значение переменной s, полученное в результате работы следующей программы. Текст программы приведен на алгоритмическом языке:алгначцелs, ks := 0нц для k от 6 до 12s := s + 5кцвывод sкон2)В таблице Dat хранятся данные измерений среднесуточной температуры за неделю в градусах (Dat[1] – данные за понедельник, Dat[2] – за вторник и т.д.).Определите, что будет напечатано в результате работы следующей программы. Текст программы приведен на алгоритмическом языке.алгначцелтаб Dat[1:7]цел k, m, dayDat[1]:=7Dat[2]:=9Dat[3]:=10Dat[4]:=8Dat[5]:=6Dat[6]:=7Dat[7]:=6day:= 1m:=Dat[1]нц для k от 2 до 7если Dat[k] < m тоm:=Dat[k]; day:=kвсекцвывод dayкон
ОТВЕТЫ
Dimitr
Oct 24, 2020
1)
var s,k:integer;
begin
s:=0;
begin for k:= 6 to 12 do
s:=s+5;
end;
write(s);
end.
35
2)
var Dat: array [1..7] of integer;
k, m, day: integer;
begin
Dat[1]:=7;
Dat[2]:=9;
Dat[3]:=10;
Dat[4]:=8;
Dat[5]:=6;
Dat[6]:=7;
Dat[7]:=6;
day:= 1;
m:=Dat[1];
begin for k:=2 to 7 do
if Dat[k]<m then
beginm:=Dat[k];
day:=k;
end;
end;
write(day);
end.
5
var s,k:integer;
begin
s:=0;
begin for k:= 6 to 12 do
s:=s+5;
end;
write(s);
end.
35
2)
var Dat: array [1..7] of integer;
k, m, day: integer;
begin
Dat[1]:=7;
Dat[2]:=9;
Dat[3]:=10;
Dat[4]:=8;
Dat[5]:=6;
Dat[6]:=7;
Dat[7]:=6;
day:= 1;
m:=Dat[1];
begin for k:=2 to 7 do
if Dat[k]<m then
beginm:=Dat[k];
day:=k;
end;
end;
write(day);
end.
5
984
Смежные вопросы:
