Скатерть
Остров
Сумка
Товар
Автобус
Винтерлятор
Как-то так:
//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.
Результат можно посмотреть тут: https://rextester.com/ENTY66578
Freeware<span> – это те программные продукты и утилиты, которые в основном распространяются и используются без всяких ограничений</span>
00 - О
01 - Л
10 - В
110 - С
<span>1110 - Е
</span><span>1111 - Й
Ответ: ВЕСЛОВЕСЛО</span>