Исправьте ошибки и определите, что будет выведено на экран после выполнения программы. Сформулируйте условие задачи для данной программы:

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.

Question

Информатика

Борисыч

13 июля, 11:35

Исправьте ошибки и определите, что будет выведено на экран после выполнения программы. Сформулируйте условие задачи для данной программы:

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.

+1

Ответы (1)

Знаете ответ?

Пинна · Answer 1

Program Prim25;

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

Программа выводит сумму цифр введенного трехзначного числа