Возрождение и взлёт. Свой собственный путь. 3-я Годовщина что ты с нами. Тебя ждут новые режимы и награды! Сайт Free Fire:https://ffshare.garena.com/?region=RU〈=ru&action=reunion&uid=1706929502. ID Приглашающего: 1706929502.
170
384
Ответы на вопрос:
Задача 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 дней
Популярно: Информатика
-
pRoToTyPe95wF18.05.2023 18:36
-
Знаток22811110.02.2022 22:21
-
kpucmuna200508.04.2021 02:03
-
milanasadykovaMilok30.01.2022 03:36
-
RFHBYF45604.12.2021 00:12
-
scfsdfddPenis14.12.2022 00:21
-
gordeevlogain215.03.2021 03:28
-
1337banana22804.06.2021 05:20
-
VikaBakevich22.03.2023 04:07
-
tim14stefan2402.06.2023 22:35