вывести все чётные числа из диапазона от а до b, а и b водяться с клавиатуры
через Паскаль решить
буду благодарна
через Паскаль решить
буду благодарна
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Объяснение:
Program zero;
Var a, b: Real; i:Integer;
Begin
Whiteln('Введите диапазон: ');
Readln(a, b);
Whiteln('Чётные числа!!!');
For i:=a to b do
If i mod 2 = 0 then
Write(i, ' ');
Readln
End.