Вопрос школьника по предмету Информатика
ПОМОГИТЕ ПОЖАЛУЙСТА!!!
Задача: Дана площадь квадрата. Определить его периметр.
Ученик не дописал решение задачи. Заполните пропуски так, чтобы программа решала поставленную задачу.
Program test3;
Var a : real; // сторона квадрата
S : real; // площадь квадрата
P : real; // периметр квадрата
Begin
Readln (
);
:=
(S);
:=
;
Writeln (‘Ответ: ’,
);
End.
Ответ учителя по предмету Информатика
Program test3;
Var a : real; // сторона квадрата
S : real; // площадь квадрата
P : real; // периметр квадрата
Begin
Readln ( a);
S:= a*a;
P:= a+a+a+a;
Writeln (‘Ответ: ’, S, P);
End.
Похожие вопросы от пользователей
1 өтіп бара жатқан
2 иілу
3 күлімсіреу
4 шынайы
5 достық пейіл танытау
6 үй иесі
7 өзге адам
Можно с переводом,спасибо большое заранее)