program area; var a:integer; // сторона а b:integer; // сторона b S:integer; // площадь прямоугольника P:integer; // периметр прямоугольника begin write("Введите а: "); // выводим сообщение readln(a); // получаем значение а write("Введите b: "); // выводим сообщение readln(b); // получаем значение b S:=a*b; // вычисляем площадь P:=a*2+b*2; // вычисляем периметр write("Площадь равна:", S); // выводим сообщение write("Периметр равен:", P); // выводим сообщение end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
