Помогите пожалуйста!!!!!! Нужно написать программу которая определяет ПРОИЗВЕДЕНИЕ ВСЕХ...

0 голосов
27 просмотров

Помогите пожалуйста!!!!!!
Нужно написать программу которая определяет ПРОИЗВЕДЕНИЕ ВСЕХ ЧИСЕЛ КРАТНЫХ 6 И ЗАКАНЧИВАЮЩИЕСЯ НА 4


Информатика (83 баллов) | 27 просмотров
0

в последовательности?

Дан 1 ответ
0 голосов

Var i,n:integer;beginwriteln('Введите кол-во чисел!');readln(n);for i:=1 to n dobeginif (i mod 6=0) and (i mod 10=4) thenwriteln(i);end;end.

(278 баллов)
0

var i,n:integer;
begin
writeln('Введите кол-во чисел!');
readln(n);
for i:=1 to n do
begin
if (i mod 6=0) and (i mod 10=4) then
writeln(i);
end;end.

0

Он все в строчку дает...

0

умник, таких чисел бесконечно много, хотя тут наверное имелась ввиду последовательность