Запиши программу в Паскале для вычисления площади прямоугольника со сторонами c и m. 1) begin writeln ('Введи длину и ширину прямоугольника c и m'); readln (c, m); s:=cm; writeln ('s=', s); readln; end. 2) var c, m, s:word; begin writeln ('Введи длину и ширину прямоугольника c и m'); readln (c, m); s:=cm; 3) var c, m:word; begin writeln ('Введи длину и ширину прямоугольника c и m'); readln (c, m); s:=cm; writeln ('s=', s); readln; end. 4) var c, m, s:word; begin writeln ('Введи длину и ширину прямоугольника c и m'); readln (c, m); s:=cm; writeln ('s=', s); readln; end.

Question

Леонид Ефимов

Информатика

8 марта, 17:40

Запиши программу в Паскале для вычисления площади прямоугольника со сторонами c и m. 1) begin writeln ('Введи длину и ширину прямоугольника c и m'); readln (c, m); s:=cm; writeln ('s=', s); readln; end. 2) var c, m, s:word; begin writeln ('Введи длину и ширину прямоугольника c и m'); readln (c, m); s:=cm; 3) var c, m:word; begin writeln ('Введи длину и ширину прямоугольника c и m'); readln (c, m); s:=cm; writeln ('s=', s); readln; end. 4) var c, m, s:word; begin writeln ('Введи длину и ширину прямоугольника c и m'); readln (c, m); s:=cm; writeln ('s=', s); readln; end.

+2

Ответы (1)

Знаешь ответ на этот вопрос?

Вера Иванова · Answer 1

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.