Паскаль же?
var s, x: string; c, n, err, i, d, k:integer;begin readln (s); n:=length(s); for i:=1 to n do begin
d:=d+k;
val(s,k,err);
end;
write (d);
end.
var a,b,c,d,x,res:integer;
begin
readln(x);
a:=x div 1000;
b:=x mod 10;
c:=x div 100 mod 10;
d:=x mod 100 div 10;
res:=a+b+c+d;
writeln(res);
readln;
В какой оболочке земли живёт большинство живых организмов?
Из каких неживых частей состоит экосистема
На какие расы делятся население земли
Определение статуса военнослужащего (краткий ответ!!)
Проведи следущие наблюдения в классе: один учащийся спокойно сидит за партой, слушая объяснения учителя; второй записывает план объяснения в тетради ; третий ученик вышел к доске отвечать на вопрос учителя. назови движущиеся тела. относительно каких других тел они движутся ?
Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.