Ответы на вопрос:
как-то так:
//fpc 3.0.0
program helloworld;
var
total: integer; // результат суммирования
ent, last: integer; // ввод, подсчет
begin
total : = 0; // начальная сумма
// 30 можно поменять на любое число, чтоб цикл не шел вечно. а если надо вечно, то поменять условие на 1 < 2
while total < = 30 do
begin
// просим число
write('enter number: ');
readln(ent);
// получаем только 4-х значные
if (ent < 1000) or (ent > 9999) then
continue;
// берем последнюю цифру
last: = ent mod 1000;
last: = last mod 100;
last: = last mod 10;
// складываем
total: = total + last;
// выводим результат
writeln(total);
end;
end.
результат можно посмотреть тут:
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Виктор33809.01.2023 15:29
-
oilga0323.09.2020 06:16
-
polyakovred17.02.2023 07:37
-
zhelavskaitanya03.08.2021 04:16
-
TanyaVasutina24.09.2022 11:33
-
WorkoutEdik22.04.2020 19:55
-
kristi09100005.12.2021 12:27
-
beresnevarseny17.07.2020 20:47
-
idrisovbulat13.01.2021 00:09
-
нтг120.03.2021 10:57
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.