Предмет: Информатика,
автор: grattttt
Вывести на экран все нечетные числа из диапазона от A до B, кратные 7(A<=B)
Ответы
Автор ответа:
0
Ответ:
program numab;
var
a, b, i: Integer;
begin
Write ('Введите А, В: ');
ReadLn (a, b);
for i := a to b do
if (i mod 2 <> 0) and (i mod 7 = 0) then
Write (i, ' ');
ReadLn;
end.
fedrfedr:
где 2 средние цифры разные сделал, там вывод на экран не помещается.
Интересные вопросы
Предмет: Русский язык,
автор: Vladazhadimka
Предмет: Русский язык,
автор: angrl43
Предмет: Математика,
автор: Seva0812
Предмет: Математика,
автор: qristine2002