45%=0,45
65%=0,65
4%=0,04
1)0,45*0,65:0,4=0,73125
Ответ:0,73125
Var a,b,p:integer;
begin
writeln ('Введите стороны прямоугольника:');
readln(a,b);
p:=2*(a+b);
writeln ( 'Периметр прямоугольника = ',p);
readln;
end.
Пример:
<span>Введите стороны прямоугольника:
3 5
Периметр прямоугольника = 16</span>
Type student=record
familia:string;
nomer:byte;
yspevaemosti:array[1..5] of integer;
end;