Предмет: Информатика,
автор: Vladus563
на языке паскаль напишите программу для вычисления площади квадрата (s=a^2) нужно срочно
Ответы
Автор ответа:
2
Ответ:
Program name;
Uses crt;
Var a, b, S, P :integer;
Begin
Clrscr;
Writeln ('Даны стороны прямоугольника a и b.');
Writeln ('(1) Найти его площадь S=a*b.');
Writeln ('(2) Найти его периметр P=2*(a+b).');
Write ('Введите значение стороны а: ');
a := 0;
Readln (a);
Write ('Введите значение стороны b: ');
b := 0;
Readln (b);
S := a*b;
P := 2*(a+b);
Writeln ('(1) Площадь прямоугольника S=a*b =', S);
Writeln ('(2) Периметр прямоугольника P=2*(a+b) =', P);
Readln (S, P);
End.
Автор ответа:
1
===== PascalABC.NET =====
begin
var a := ReadReal('Сторона квадрата:');
Println('Его площадь:', a * a)
end.
Приложения:
![](https://files.topotvet.com/i/2c1/2c1404b01ed6a8e8297aac05fc6a0234.jpg)
Похожие вопросы
Предмет: Биология,
автор: dorosilovaleksandr
Предмет: Математика,
автор: dianabelous34
Предмет: География,
автор: petartem0848
Предмет: Математика,
автор: ramonefrans