Вывести на экран все четные числа из отрезка от a до b, при этом границы отрезка заведомо правильно вводятся с клавиатуры. Паскаль, цикл while
Ответы
Ответ дал:
0
var
a,b:integer;
begin
Write('Введите a и b: '); Read(a,b);
if a mod 2<>0 then inc(a);
while a<=b do begin
Write(a,' ');
a:=a+2
end
end.
Пример
Введите a и b: -7 11
-6 -4 -2 0 2 4 6 8 10
a,b:integer;
begin
Write('Введите a и b: '); Read(a,b);
if a mod 2<>0 then inc(a);
while a<=b do begin
Write(a,' ');
a:=a+2
end
end.
Пример
Введите a и b: -7 11
-6 -4 -2 0 2 4 6 8 10
Ответ дал:
0
Program n1;
var a,b: integer;
begin
readln(a,b);
if a mod 2<>0 then a:=a+1;
while a<=b do
begin
write(a,' ');
a:=a+2;
end;
end.
var a,b: integer;
begin
readln(a,b);
if a mod 2<>0 then a:=a+1;
while a<=b do
begin
write(a,' ');
a:=a+2;
end;
end.
Ответ дал:
0
Очень похоже на предыдущее решение)))) Ну просто очень...
Похожие вопросы
2 года назад
2 года назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад