Помогите пожалуйста!!!!!! Нужно написать программу которая определяет ПРОИЗВЕДЕНИЕ ВСЕХ ЧИСЕЛ КРАТНЫХ 6 И ЗАКАНЧИВАЮЩИЕСЯ НА 4
Answers & Comments
azatnorem
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.
0 votes Thanks 1
azatnorem
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.
Answers & Comments
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.