Помогите с информатикой. нужно написать программу вычисления периметра прямоугольника. Спасибо.
нужно написать программу вычисления периметра прямоугольника. Спасибо.
Дополненписьменно. не в паскале
блок-схему тоже надо кстати
Только авторизированные пользователи могут оставлять свои ответы
Дата
Популярность
может быть тогда тебе нужно блок схему?
а так вот программа
program название;
var p, a, b: real;
begin
writeln(a), readln(a);
writeln(b), readln(b);
p:=(a+b)*2;
writeln(p);
end.
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.
programm perim;
var
d,r:integer;
begin
Writeln('Введите длину');
readln(d);
writeln('Введите ширину');
readln(r);
writeln('Периметр = '+(d+r)*2);
end;