вывести на экран все четные числп от n до m ,в поскале
5-9 класс
|
var n, m, i: integer;
begin
Readln(n);
var
n,m:integer;
i:integer;
begin
write('От: ');
readln(n);
write('До: ');
readln(m);
write('Четные числа от ', n, ' до ',m, ': ');
for i:=n to m do
if (i mod 2)=0 then write(i, ', ');
end.
Другие вопросы из категории
спасибо...помогите хоть кто нибудь;(
превращается в prsws oad.Один из её защищенный паролей выглядит как ввт ева чоррсу . Укажите исходящий пароль .........
программу для а) a=3 и N=4, б) a=2 и N=5.
Читайте также
Подсказска:
i это текущие значения
N до M значит от начала до конца , начальное число N, концовое M
mod использоватсья надо, поомгите пожалуйста, отблагодарю
паскаль 3)найти произведение последовательных натуральных чисел от n до m. написать программу паскаль. 4)найти сумму последовательных натуральных чисел от 10 до 15.тоже паскаль
Вывести на экран часть массива входящих в диапазон, двух введенных чисел. Эти два числа будут индексами к тем числам, которые надо вывести.