Ефрем
4 год назад
Найти и исправить ошибки,в ответ - записать вводимые значения и результатПример 1:program a1;var k,m,day: intiger;Dat: array [1.....7] of intiger;beginDat [1]:=7;Dat [2]:=9;Dat [3]:=10;Dat [4]:=8;Dat [5]:=6;Dat [6]:=7;Dat [7]:=10;Day:= 1m:=Dat [1];for k:=2 to 7 doif Dat[k] > m thenbeginm:= Dat[k];day:=kend;write (day)end. Пример 2:program a1;var k,m,count; integer;Dat: array [1...7] of integer;begin.Dat [1]:=3;Dat [2]:=-1;Dat [3]:=2;Dat [4]:=0;Dat [5]:=0;Dat [6]:=4;Dat [7]:=-2;count:= 0for k:=1 to 7 doif Dat[k] >=0 then count:=count + 1writi (count);end. Пример 3:program a1;var a,b,c,f,s: byte;beginreadln (a);b:= a div 100;c:= a mod 100;d:= c div 10;f:= c mod 10;s:= b+d+f;if(s mod 2)=0 then writln ('четное ) else writeln ('не четное');end
ОТВЕТЫ
Todora
Oct 24, 2020
1)
Ошибкa -> исправленное:
intiger -> integer
array[1......7] of intiger -> array[1..7] of integer;
Day:=1 -> day:= 1;
day:= k -> day:=k;
write(day) -> write(day);
выведет 3
2)
var k,m,count; -> var k,m,count:
array[1...7] -> array[1..7]
begin. -> begin
count:= 0 -> count:= 0;
count:= count + 1 -> count:= count + 1;
writi(count); ->write(count);
Выведет 5
3)
var a,b,c,f,s -> var a, b, c, d, f, s
writln -> writeln
end -> end.
вводим 1234
результат "не четное"
175
Смежные вопросы:
