Вычислить и вывести значения периметра 30 прямоугольников при различных значениях их сторон (А больше 0 и B больше 0), Pascal.
Вычислить и вывести значения периметра 30 прямоугольников при различных значениях их сторон (А>0 и B>0), Pascal.
Гость
Ответ(ы) на вопрос:
Гостьvar
a,b:integer;
i:integer;
begin
for i:=1 to 3 do
begin
writeln('Pryamougolnik ', i);
writeln('vvedite storonu a');
readln(a);
writeln('vvedite storonu b');
readln(b);
writeln('perimetr = ', (a+b)*2);
end;
end.
Не нашли ответ?
Похожие вопросы