Составить программу нахождения площади ромба в Паскале
Var x,y:integer;
beginwriteln(Введите высоту);
read(x);
writeln(Введите основание);
read(y);
writeln(Площадь ромба = , y*x);
end.
Оцени ответ
Вход
Регистрация
Задать вопрос
Var x,y:integer;
beginwriteln(Введите высоту);
read(x);
writeln(Введите основание);
read(y);
writeln(Площадь ромба = , y*x);
end.