Предмет: Информатика,
автор: danisvaliev05
Построить блок-схему и составить программу вывести все нечетные числа кратные 5 от 1 до N. В ПАСКАЛЕ !!!
Ответы
Автор ответа:
0
Ответ:
Program Seq;
var N :integer;
function seque(N:integer): integer;
begin
for var i := 0 to N do
begin
if (i mod 5 = 0) and ( i mod 2 <> 0) then
write(i, ', ');
end;
end;
begin
readln(N);
seque(N);
end.
Приложения:
Интересные вопросы
Предмет: Английский язык,
автор: Madikowa
Предмет: Русский язык,
автор: Кися2707
Предмет: Русский язык,
автор: andy60rus
Предмет: География,
автор: Аноним
Предмет: Математика,
автор: neizvestno6