// Задание №1
var
a,s: integer;
begin
a:=300;
repeat
s:=s+a;
a:=a+2;
until a>400;
writeln('s = ', s)
end.
// Задание №2
var
a: integer;
begin
a:=100;
repeat
if a mod 8 = 0 then write(a:4);
a:=a+1;
until a>999;
end.
Ответ:
Сколько раз будет выполнен цикл? 9
Объяснение:
При каждом выполнении i увеличивается на единицу, первый проход i=2, последний i=10
Ответ:
Смотри картинку
Объяснение:
Первый столбик (ноутбук) должен быть посередине между 1000000 и 1200000. Остальные рисуешь примерно.
VAR a:array[1..10] of integer;
i,s:integer;
BEGIN
s:=0;
for i:=1 to 10 do
begin
a[i]:=random(3);
if a[i]=1 then s:=s+1
end;
writeln ('Массив a: ');
for i:=1 to 10 do write (a[i],' ');
writeln;
writeln ('Элементов массива, равных одному: ',s)
END.