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

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

Program test8;

Var a : real; // сторона квадрата

S : real; // площадь квадрата

P : real; // периметр квадрата

Begin

Readln ( );

:= / 4;

S := (a);

Writeln (‘ответ: ’, );

End

program mdd; uses crt; var a,b,c,d: longint; beginclrscr; readln(a,b,c,d); if (a> b) and (a> c) and (a> d) and (d< a) and (d< c) and (d< b) then writeln('правда')else writeln(''неправда); readkey; end.

думаю так1) налить в кувшин 3 л, перелить в емкость,где будет 7 л

2) еще раз налить туда 3 л

3) налить 3 л воды налить в кувшин для 8 л, потом еще раз для 8 литров и еще раз(3 раза) на третьем разе останется 1 л,этот л и доливаем в кувшин с 7 л 

2.поиск текста на странице

4.изменение кодировки текста на странице

8.изменение размера шрифта для текста страницы

1л=1дм^3

8л = 0.008 куб метров

5.68кг=0.00568 тон

плотность

0.00568/0.008=0.71 тон на кубометр

500*0.71 = 355 тон влезет в цистерну