Составьте программу, которая находит наименьшую сумму ряда 3+4+5+6+ превыщающую 15(паскаль авс)
286
473
Ответы на вопрос:
program summa;
uses crt;
var s, i, n: integer;
begin
write ('n='); readln (n);
s: =1; write ('s=1');
for i: =2 to n do
begin
s: =s+i;
write ('+', i);
end;
write ('=', s);
readln;
end.
Популярно: Информатика
-
begimay201.05.2023 08:17
-
Sekureti55622.11.2021 18:25
-
privetloll11.03.2020 01:56
-
салссо123296027.02.2022 00:25
-
Polina5545414.08.2022 17:28
-
lorik0230.09.2022 19:30
-
varkraft09.12.2020 00:19
-
Катттття24.02.2021 00:56
-
Ненике25.06.2023 03:50
-
Deniz133703.11.2021 03:01