напишите программу вычисляющую площадь и периметр прямоугольника. Стороны прямоугольника вводятся с клавиатуры.
Ответы
Ответ дал:
0
Ответ дал:
0
Program Rectangle;
var
a, b, s, p: integer;
Begin
//Ввод сторон
write('Длина прямоугольника -> ');
readln(a);
write('Ширина прямоугольника -> ');
readln(b);
//Площадь
s := a * b;
writeln('Площадь прямоугольника: ', s);
//Периметр
p := 2 * a + 2 * b;
writeln('Периметр прямоугольника: ', p);
End.
var
a, b, s, p: integer;
Begin
//Ввод сторон
write('Длина прямоугольника -> ');
readln(a);
write('Ширина прямоугольника -> ');
readln(b);
//Площадь
s := a * b;
writeln('Площадь прямоугольника: ', s);
//Периметр
p := 2 * a + 2 * b;
writeln('Периметр прямоугольника: ', p);
End.
Ответ дал:
0
Файл как, скачивается?
Ответ дал:
0
да
Ответ дал:
0
спасибо, еще раз!
Ответ дал:
0
Всегда пожалуйста! Рад помочь!
Ответ дал:
0
var
a, b, n, p: integer; // Переменные целочисленного типа.
begin
write('Длина: '); readln(a); // Задаём длину нашему треугольнику.
write('Ширина: '); readln(b); // Задаём ширину нашему треугольнику.
n:=a*b // Формула что-бы узнать площадь прямоугольника.
write('Площадь: ',b); // Выводим площадь на экран.
p:=2*a+2*b; // Формула что-бы узнать периметр треугольника.
write('Периметр: ',p); // Выводим периметр на экран.
end.
a, b, n, p: integer; // Переменные целочисленного типа.
begin
write('Длина: '); readln(a); // Задаём длину нашему треугольнику.
write('Ширина: '); readln(b); // Задаём ширину нашему треугольнику.
n:=a*b // Формула что-бы узнать площадь прямоугольника.
write('Площадь: ',b); // Выводим площадь на экран.
p:=2*a+2*b; // Формула что-бы узнать периметр треугольника.
write('Периметр: ',p); // Выводим периметр на экран.
end.
Приложения:
Ответ дал:
0
n:=a*b; **
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад