Предмет: Информатика,
автор: katjakitty
Найдите произведение всех однозначных чисел среди 8 введенных.Паскаль
Ответы
Автор ответа:
0
var
i,k, p: integer;
begin
p:=1;
for i:=1 to 8 do
begin
Readln (k);
if k div 10 = 0 then p:=p*k
end;
writeln (p);
end.
Интересные вопросы
Предмет: Биология,
автор: Vladaka10
Предмет: Математика,
автор: yevchkk
Предмет: Физика,
автор: Аноним
Предмет: Литература,
автор: Саша895357
Предмет: История,
автор: ДарьяФоминых