Ответы на вопрос:
видимо имеется ввиду что сумма этих чётных чисел не должна превышать r
program chisla;
uses crt;
var i,r: integer ;
begin
clrscr;
write (' введите r: ');
readln(r);
writeln;
i: =0;
while (i< =r) do begin inc(i,2);
if (i< =r) then write(i: 3);
end;
readkey;
end.
Популярно: Информатика
-
darkhun16.09.2021 01:26
-
egorkorotenko03.03.2020 08:14
-
Evloevckuú12.07.2022 00:34
-
фуад0503.05.2022 17:45
-
ladhice23.07.2020 08:24
-
evaIA2410200330.09.2020 14:10
-
armenchik200709.02.2020 03:56
-
mashadumbrava103.09.2021 16:22
-
scfsdfddPenis02.06.2023 19:47
-
maxim2006c24.09.2022 03:36