Задача 1:
var
m, n: integer;
begin
writeln('Все четные числа: ');
repeat
n := 1;
m := 20;
until m >= n;
while m >= n do
if n mod 2 = 0 then write(n, ' ');
n := n + 1;
end;
end.
Результат:
Все четные числа:
2 4 6 8 10 12 14 16 18 20
Задача 2:
var p, sum: integer;
Begin
sum := 0;
p:=1;
while sum<=100 do begin
sum := sum+p;
p := p+1;
writeln ('Все задачи Маша решит за ', p, ' дней');
Все задачи Маша решит за 15 дней
Задача 1:
var
m, n: integer;
begin
writeln('Все четные числа: ');
repeat
n := 1;
m := 20;
until m >= n;
while m >= n do
begin
if n mod 2 = 0 then write(n, ' ');
n := n + 1;
end;
end.
Результат:
Все четные числа:
2 4 6 8 10 12 14 16 18 20
Задача 2:
var p, sum: integer;
Begin
sum := 0;
p:=1;
while sum<=100 do begin
sum := sum+p;
p := p+1;
end;
writeln ('Все задачи Маша решит за ', p, ' дней');
end.
Результат:
Все задачи Маша решит за 15 дней