Всё это? и всё ны с начало видно
Немного не понятно с условиями последней задачи. Написал как понял. См. приложения
3. pascal
var s, a: integer;
g:longint;
begin
s:=0;
readln(g);
while g > 0 do
begin
a:=g mod 10;
g:=g div 10;
s:=s+a;
end;
writeln(s)
end.
OOH, СССР, ГДР, ВУЗ, МГУ, <span> SOS</span>