Знамениты ширина и длина прямоугольника. Сторона квадрата в два раза меньше

Program aliona;
var a,b:integer;
c,p1,p2:real;
begin
writeln('vvedite sirinu =');
readln(a);
writeln('vvedite dlinu=' );
readln(b);
p1:=0;
p2:=0;
c:=b/2;
p1:=(a+b)*2;
p2:=4*c;
writeln('p1=',p1,'p2=',p2);
readln;
end.

Руслан Шаволов 2019-07-19 18:41:23

hailey1995 а ты можешь пожалуйста еще несколько решить?

Людмила Лазня 2019-07-19 18:49:52

1) Дано четырехзначное число. Правильно ли, что посреди его цифр есть кратные трем. 2) Даны три целых числа. Вывести среднее значение числа (средним числом назовем то, которое меньше наивеличайшего, но больше меньшего числа). 3) Напишите эффективную программ, которая по двум данным естественным числам х и у, не превосходящим 10000, подсчитывает количество естественных чисел, кончающихся нулем, на отрезке [х,у] (включая концы отрезка).

Елизавета Милакова 2019-07-19 18:57:52

все надобно на языке паскаль, буду очень признателен

Софья Голосиб 2019-07-19 18:59:46

можешь сюда

О проекте

Знамениты ширина и длина прямоугольника. Сторона квадрата в два раза меньше

Добро пожаловать!