составить алгоритм и программу:вывести на экран числа, кратные 2 ( язык Паскаль)
Ответы на вопрос
Ответил Joker4567
0
Ввел ввод промежутка от a до b, пользователь сам задает. Потом выводит числа кратные 2.
Приложения:
Ответил Vitya9797
0
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.
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.
Приложения:
Новые вопросы