Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиКалендарьОблакоЗаметкиВсе проекты

помогите с информатикой. нужно написать программу вычисления периметра прямоугольника. Спасибо.

Kate Профи (838), на голосовании 12 лет назад
нужно написать программу вычисления периметра прямоугольника. Спасибо.
Дополнен 12 лет назад
письменно. не в паскале
Дополнен 12 лет назад
блок-схему тоже надо кстати
Голосование за лучший ответ
tatka Мастер (1173) 12 лет назад
может быть тогда тебе нужно блок схему?
а так вот программа
program название;
var p, a, b: real;
begin
writeln(a), readln(a);
writeln(b), readln(b);
p:=(a+b)*2;
writeln(p);
end.
Петя Пупкин Ученик (164) 12 лет назад
programm perim;
var
d,r:integer;
begin
Writeln('Введите длину');
readln(d);
writeln('Введите ширину');
readln(r);
writeln('Периметр = '+(d+r)*2);
end;
Влад Золотарёв Знаток (435) 6 лет назад
var a,b,c,p:real;
begin
writeln('Введите сторону A');
readln(a);
writeln('Введите сторону B');
readln(b);
writeln('Введите сторону C');
readln(c);
if(c>b) and (c>a) then
writeln('треугольник не существует');
if (b>c) and (a>c) then
p:=a+b+c;
writeln('Периметр равен ',p);
end.
Похожие вопросы