Предмет: Информатика,
автор: пулька1
Дана сторона квадрата а. Найти его периметр Р=4*а
Ответы
Автор ответа:
0
program pr1;
var
P,a :integer
begin
a:=2;
P=4*a;
writeln(P);
end.
Автор ответа:
0
program Pi;
var
P,a :integer
begin
ReadLn(a);
P=4*a;
writeln(P);
end.
Автор ответа:
0
program perimetr_kv;
var a,p :real; {возможно, тип и integer, из данного условия неясно}
begin
write('a='); readln(a);
p:=4*a;
writeln('P=',p);
end.
Интересные вопросы
Предмет: Математика,
автор: Аноним
Предмет: Математика,
автор: dmoleynichenko
Предмет: Қазақ тiлi,
автор: alieksan77
Предмет: Обществознание,
автор: karina988