Ответы на вопрос:
Var a,p: integer; begin p: =1; readln(a); while a< > 101 do begin if a div 10 = 0 then p: =p*a; readln(a) end; writeln(p) end.
Популярно: Информатика
-
4. Племя Мульти имеет 16-символьный алфавит. Племя Пульти использует 32-символьный...
Chernaya404.06.2020 19:56 -
Виразить в мегабайти: з 740 сторинок якщо на одний сторинци 60 рядкив по...
maxim21020405.11.2020 01:31 -
Нормально ли то что при маленьком надовлении на экран (примерно 6 дюймов,...
yaach129.05.2020 16:48 -
Что такое растровый редактор? ...
ксе1611.08.2021 14:12 -
Начав тренировки спортсмен в первый день пробежал 10 км. каждый следующий...
ksdkjxddjcksmsfmkf13.04.2023 21:25 -
Доклад на тему что такое робот. Желательно 300 слов...
zaev199015.03.2022 20:23 -
Мәтінді форматтауға нелер жатады ...
falala111.08.2020 19:49 -
Напиши эссе на тему ,, Какую пользу приносят современные работы?,, дам 15...
sashadavydov207.07.2022 00:13 -
Представьте, что вам предстоит оклеить обоями прямоугольную комнату. Известны...
personalyanaul06.04.2021 11:36 -
Ajutati va rog frumos...
kutinaI19.04.2020 03:31