(ИЗИ-ИЗИ ЗАДАНИЕ, 18 БАЛЛОВ!)
Напишите программу вывода всех четных чисел в диапазоне от 2 до 100 включительно.
(ЧЕРЕЗ REPEAT)
Напишите программу вывода всех четных чисел в диапазоне от 2 до 100 включительно.
(ЧЕРЕЗ REPEAT)
More Questions From This User See All
Answers & Comments
program raf105;
var a,b:integer;
begin
a:=1;
repeat
a:=a+1;
if (a mod 2)=0
then b:=b+1;
until a=100;
writeln('Вывод: ',b);
end.
Язык программирования PascalABC