Задача: Дана площадь квадрата. Определить его периметр.

Ученик не дописал решение задачи. Заполните пропуски так, чтобы программа решала поставленную задачу.

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.

375 киболайт = 375 * 1024 * 8 = 3072000 бит

3072000 : 128000 = 24 с

ответ. понадобится 24 с.

грубо и сердито:

var c: longint;

begin

  read(c);

  c: =c mod 10;

  c: =sqr(c);

  writeln(c);

end.