Ярослава
6 год назад
Пожалуйста посчитайте решить, умоляю!!! Срлчно
ОТВЕТЫ
Jordan
Oct 24, 2020
var S, P, a : real;
begin
write('Введите значение а: ');
readln(a);
S := a * a;
P := 4 * a;
writeln('S = ', S, 'P = ', P);
end.
begin
write('Введите значение а: ');
readln(a);
S := a * a;
P := 4 * a;
writeln('S = ', S, 'P = ', P);
end.
306
Смежные вопросы:
