Помогите написать программу на языке Pascal:
Вычислить 8 целых чисел начиная с 1 не кратных 2 и 5.
Ответы на вопрос
Ответил NiGhtWolFs
1
var i,n:integer;
begin
n:=1;
i:=1;
write ('Числа не кратные 2 и 5: ');
while i<=8 do
begin
if (n mod 2 <> 0) and (n mod 5 <> 0) then
begin
write (n,' ');
i:=i+1;
end;
n:=n+1;
end;
end.
begin
n:=1;
i:=1;
write ('Числа не кратные 2 и 5: ');
while i<=8 do
begin
if (n mod 2 <> 0) and (n mod 5 <> 0) then
begin
write (n,' ');
i:=i+1;
end;
n:=n+1;
end;
end.
Приложения:

Новые вопросы
Геометрия,
2 года назад
Математика,
2 года назад
Биология,
2 года назад
Химия,
2 года назад
Биология,
7 лет назад
Математика,
7 лет назад