Исправьте ошибки и определите, что будет выведено на экран после выполнения программы. Сформулируйте условие задачи для данной программы: 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;
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.
More Questions From This User See All