Предмет: Информатика,
автор: august1403
PascalABC 1. Напишите программу, которая работает с двумя целыми числами, введёнными с клавиатуры. Программа выводит все чётные числа, расположенные в интервале между двумя введёнными числами. Например, пользователь вводит числа 10 и 20, программа выводит «12 14 16 18», если -8 и -3, то «-6 –4». Если пользователь вводит, например, числа 6 и 8, программа ничего не выводит. Точно так же программа ничего не выводит, если введённые числа равны, или второе указанное число меньше первого.
Ответы
Автор ответа:
0
var
a,b,i : integer;
begin
readln (a,b);
for i := (a+1) to (b-1) do
if i mod 2 = 0 then
writeln (i);
end.
вроде работает pascalABC.Net
a,b,i : integer;
begin
readln (a,b);
for i := (a+1) to (b-1) do
if i mod 2 = 0 then
writeln (i);
end.
вроде работает pascalABC.Net
Автор ответа:
0
СПАСИБО
Похожие вопросы
Предмет: Химия,
автор: best966
Предмет: Русский язык,
автор: ekapenov
Предмет: Математика,
автор: Shaaman
Предмет: Алгебра,
автор: Елизавета1409
Предмет: Математика,
автор: tyushkevicha