Var a,a1,a2,a3,a4:integer; begin writeln('a=');readln(a); a1:=a div 1000; a2:=a div 100 mod 10; a3:=a mod 100 div 10; a4:=a mod 10; writeln('цифры: ',a1:2,a2:2,a3:2,a4:2); writeln('sum=',a1+a2+a3+a4); end.
2 votes Thanks 2
sergey42281645
Var a,b,c,d,i:integer; begin writeln('Введите 4 Числа='); readln (a,b,c,d); i:=a+b+c+d; writeln('Результат суммы=',c); writeln(a,'+',b,'+'c','+'d=',i); end.
Answers & Comments
Verified answer
Var a,a1,a2,a3,a4:integer;begin
writeln('a=');readln(a);
a1:=a div 1000;
a2:=a div 100 mod 10;
a3:=a mod 100 div 10;
a4:=a mod 10;
writeln('цифры: ',a1:2,a2:2,a3:2,a4:2);
writeln('sum=',a1+a2+a3+a4);
end.
begin
writeln('Введите 4 Числа=');
readln (a,b,c,d);
i:=a+b+c+d;
writeln('Результат суммы=',c);
writeln(a,'+',b,'+'c','+'d=',i);
end.