1. Сколько раз будет выполнен следующий цикл (развернутый ответ с пояснениями):
а) i:=21;
repeat
i:=i-5
until i>21;
б) for m:=2 to 11 begin
writeln (m);
m:= m+3
end;
2. Найдите результат выполнения программы (развёрнутый ответ с пояснениями):
а) i:= 0; s:= 0
while i<2 do
begin
i:= i+1;
s:=s+i*i
end;
б) sum:= 0;
for i:= 5 to 9 do
sum:= sum+i;
в) s:=12;
for w:= 3 to 9 do
s:= s-w;
writeln (s);
г) repeat
writeln (`Информатика`);
n:= n+1;
until n>7
3. Составьте блок-схему к следующей задаче: найдите кол-во положительных чисел, выбранных случайно на отрезке (-50;50).
4. Найдите ошибки в программе, которая находит наибольшее из пяти вводимых с клавиатуры чисел:
var x, i, m: integer;
begin
writeln (`Введите число`); readln (x);
m:= x;
for i:= 1 to 4 do begin
readln (x);
if x<>m then x: = m
end;
writeln (`Наибольшее число=`,m);
end.

Турик2087    1   15.05.2020 19:15    21