Program n1;
var sum,a: real;
i: integer;
begin
i:=0;
sum:=0;
while i<10 do
begin
readln(a);
sum:=sum+a;
i:=i+1;
end;
write(sum);
end.
1. x = 5
2. y = 4
3. x = 5 + 4 = 9
4. y = 9 - 4 = 5
5. x = 9 - 5 = 4
6. s = 4 div 2 + y mod 3 = 2 + 2 = 4
AB9 = <span>2745
Вот ответ </span>↑<span>
</span>Слишком коротко.<span> Напишите минимум 20 символов, чтобы объяснить все</span>
program perimetr;
uses crt;
var a,b,c:real;P:real;
begin
writeln('ведите число');
read(a,b,c);
P:=a+b+c;
write(p)
end.
а с площадью все тоже самое.