Напишите пожалуйста программу на Паскале составте программу для вычечления периметра равностороннего треугольника длинна видите на клавиатуре,
пажайлуста очень нада ЗАРАНИЕ СПАСИБО
Ответы
Ответ дал:
0
program perimetr;
var n,p: integer;
begin
readln (n);
p:=n*3;
writeln (p);
end.
var n,p: integer;
begin
readln (n);
p:=n*3;
writeln (p);
end.
Ответ дал:
0
Program perimetr;
uses crt;
var a,p:integer;
begin
read(a);
p:=a*3;
writeln('Периметр равен ',p);
readkey;
end.
uses crt;
var a,p:integer;
begin
read(a);
p:=a*3;
writeln('Периметр равен ',p);
readkey;
end.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
10 лет назад