Информатика 10 б Найдите и исправьте синтаксические ошибки в следующей
программе:
программа с ошибками
program al
var b; integer;
begin
readln ('введите число )
writeln (d);
d= d * d;
writein (“его квадрат=": d)
end
Верная программа

157

353

Посмотреть ответы 1

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

ммм298

Информатика

4,4(22 оценок)

Var a: array[1..10] of integer; k: integer: =0; begin for var i: = 1 to 10 do begin a[i]: =random(10,99); write(a[i],' '); if (i mod 2 = 0)and(a[i] mod 2 = 0) then k+=1; end; writeln; writeln('количество четных элементов с четными индексами: ',k); end. var a: array[1..10] of integer; p: real: =1; begin for var i: = 1 to 10 do begin a[i]: =random(10,99); write(a[i],' '); if a[i] mod 5 = 0 then p*=a[i]; end; writeln; writeln('произведение элементов, кратных 5: ',p); end.