Исправьте ошибки и определите, что будет выведено на экран после выполнения программы. сформулируйте условие для данной программы: program prim2.5 ; var a: integer; c,d,e,f: longint; begin writeln (' введите трехзначное число '); readln (a); b : = a mod10; c : = a div 10; d: = c mod 10; e: =c div 10; f: =b+d+e; writeln (' ответ равен ', f); readln; end.
var
a: Integer;
b, c, d, e, f: Longint;
begin
Writeln(' Введите трехзначное число ');
Readln(a);
b := a mod 10;
c := a div 10;
d := c mod 10;
e := c div 10;
f := b + d + e;
Writeln(' ответ равен ', f);
Readln;
end.
Тестовое решение:
Введите трехзначное число
574
ответ равен 16
Программа выводит сумму цифр введенного трехзначного числа