Регистрация
DASHA56789111
01.04.2020 05:05
Информатика
Есть ответ 👍

Найти и исправить ошибки, в ответ - записать вводимые значения и результат

Пример 1:

program a1;
var k,m,day: intiger;
Dat: array [1.....7] of intiger;
begin
Dat [1]:=7;
Dat [2]:=9;
Dat [3]:=10;
Dat [4]:=8;
Dat [5]:=6;
Dat [6]:=7;
Dat [7]:=10;
Day:= 1
m:=Dat [1];
for k:=2 to 7 do
if Dat[k] > m then
begin
m:= Dat[k];
day:=k
end;
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:= 0
for k:=1 to 7 do
if Dat[k] >=0 then
count:=count + 1
writi (count);
end.

Пример 3:

program a1;
var a,b,c,f,s: byte;
begin
readln (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

252
266
Посмотреть ответы 2

Ответы на вопрос:

Лара1512
Лара1512
4,4(92 оценок)

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

результат "не четное"

злючка26
злючка26
4,6(64 оценок)

информационный объем 1 страницы книги в байтах: 204800 байт

Популярно: Информатика