Не понятно,что. Ты написал(а),вот 2).Что имеется ввиду?
var
R,S:real;
begin
readln (R);
S:=3.14*R*R;
writeln (S);
end.
Картины. Рисунки. Фотографии.
Сижу и рисую картину.
Просматриваю старые фотографии.
Смотрю детске рисунки.
121(7) + 1 = 101(8)
64 + 1 = 65
Var a,b,c,s,x: integer;
begin
write('x = '); readln(x);
<span> а:=х div 100;
</span><span> b:=x mod 100 div 10;
</span><span> c:=x mod 10;
</span><span> s:=a+b+c;
</span> writeln(s);
end.
При вводе x = 248 будет напечатано 14, при вводе x = 789 будет напечатано 24