var a,b, DeadCodeWriter, Perimetr: real;
begin
write('Введите первую сторону в см: ');
readln(a);
write('Введите вторую сторону в см: ');
readln(b);
Perimetr:=2*(a+b);
write('Периметр равен ',Perimetr);
readln;
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
var a,b, DeadCodeWriter, Perimetr: real;
begin
write('Введите первую сторону в см: ');
readln(a);
write('Введите вторую сторону в см: ');
readln(b);
Perimetr:=2*(a+b);
write('Периметр равен ',Perimetr);
readln;
end.