Предмет: Информатика,
автор: frigate19
Pascal.
Составить программу
Найти произведение N первых натуральных чисел кратных 11
Ответы
Автор ответа:
2
var n,a,z:integer;
begin
write('n= ');
read (n);
z:=1;
for a:=1 to n do
begin
if (a mod 11 =0)
then z:=z*a;
end;
writeln(z);
end.
pryhodzichdavid:
сейчас исправлю
да
наверное
да
Интересные вопросы
Предмет: Литература,
автор: nikozlata
Предмет: Литература,
автор: Аноним
Предмет: Другие предметы,
автор: bbboomm76
Предмет: Алгебра,
автор: nastenka19822
Предмет: Физика,
автор: Поисковик