1-3
2-2
3-1
жду лучший ответ)
Program LOL2016;
var n,s,r:integer;
begin
readln(n);
s:=0;
while(n <> 0) do begin
r:=n mod 10;
s:=s+r;
n:=n div 10;
end;
writeln(s);
end.
<span>
если что то не понятно просто спроси и я обьясню :)</span>
var
mas:array[1..3] of integer;
i,min:integer;
begin
for i:=1 to 3 do
begin
min:=maxint;
writeln ( 'Введите возраст ',i,'-ого участника');
readln (mas[i]);
if mas[i]<min then min:=mas[i];
end;
writeln (min);
end.
Ответ:
real: A, B - стороны прямоугольника
real: P - периметр
real: S - площадь
все переменные вещественного типа
54 _7+x=320_5
39_10+x=85_10
x=85-39=46
46_10=144_6