Question

Составьте программу, которая проверяет введенные числа на четырехзначность, а затем суммирует последнюю цифру числа.Pascal

Answer 1

Как-то так:

//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