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

конечно

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

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

хорошо решение куда написать?

можешь сюда

program aliona;var a,b:integer;c,p1,p2:real;beginwriteln('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.