Составить алгоритм и программу:вывести на экран числа, кратные 2 ( язык Паскаль)
Составить алгоритм и программу:вывести на экран числа, кратные 2 ( язык Паскаль)
Гость
Ответ(ы) на вопрос:
ГостьВвел ввод промежутка от a до b, пользователь сам задает. Потом выводит числа кратные 2.
Гостьprogram chisla;
uses crt;
var a,b,n,k: integer;
begin
b:=0;
Writeln('Нахождение чисел кратным 2-м');
Writeln('Введите интервал чисел: ');
Readln(n,k);
for a:=n to k do
if (a mod 2=0) then
begin
write(a,' ');
b:=b+1;
end;
end.
Не нашли ответ?
Похожие вопросы