Решебник
- Урок 11. Задание 3.
- ...
- Урок 16. Задание 2.
- Урок 16. Задание 3.
- Урок 16. Задание 4.
- Урок 16. Задание 5.
- Урок 16. Задание 6.
- Урок 16. Задание 7.
- Урок 16. Задание 8.
Program symm2;
var a,v,l,s,rd,red:integer;
begin
read(a);
v:=a mod 10;
l:=a div 10;
rd:=l mod 10;
red:=l div 10;
s:=rd+red+v;
writeln('Сумма цифр числа ',a:4,' равна ', s:3);
end.
var a,v,l,s,rd,red:integer;
begin
read(a);
v:=a mod 10;
l:=a div 10;
rd:=l mod 10;
red:=l div 10;
s:=rd+red+v;
writeln('Сумма цифр числа ',a:4,' равна ', s:3);
end.