Помогите пожалуйста) Информатика Паскаль ABC
Составьте
программу в Pascal,
которая выводит на экран, все нечетные числа, делящиеся на 5 нацело, лежащие в
диапазоне от 20 до 178.
Ответы на вопрос
Ответил figyshkin2
0
program p1;
var
i,n:integer;
begin
n:=178;
for i :=20 to n do
begin
if not(i mod 2 = 0)
then
if (i mod 5 = 0)
then
writeln(i);
end;
readln;
end.
var
i,n:integer;
begin
n:=178;
for i :=20 to n do
begin
if not(i mod 2 = 0)
then
if (i mod 5 = 0)
then
writeln(i);
end;
readln;
end.
Ответил figyshkin2
0
readln - на твоё усмотрение
Ответил Аноним
0
помоги с кр, срочно https://znanija.com/task/29131710
Ответил Аноним
0
пожалуйста
Новые вопросы
Русский язык,
2 года назад
Русский язык,
2 года назад
Математика,
8 лет назад
Математика,
9 лет назад