Ответы на вопрос:
ответ:
(паскаль помню абы как синтаксис в )
programm example;
var
a,b,c,r: integer;
begin
readln(a);
readln(b);
readln(c):
r: =a*b*c;
writeln(r);
end. как то так..
/прошу прощения сам прочел не верно
если произведение 3 цифр то просто переводим число в строку inttostr вроде и посимвольно умножаем strtoint(s[1])*strtoint(s[2])*strtoint(s[3]);
Program z1; var a: integer; c: byte; begin readln(a); c: =0; while a < > 0 do begin c: =c + a mod 10; a: =a div 10; end; writeln('summa: ', c); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
23redalice1116.04.2022 04:01
-
buh6429.03.2022 11:18
-
typaydevochka16.09.2021 21:38
-
NikaHikikomori27.01.2021 03:21
-
Matvey174578910.01.2020 13:01
-
Urinasonya06.08.2021 21:25
-
AmyDay12320.04.2022 11:46
-
NikitaZlatoystov20.05.2020 16:07
-
zanunkyk16.01.2023 00:38
-
oaooks14.10.2021 12:13
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.