Var a.b.c,d: integer;
begin
Write('Введите число a'); readln(a);
Write('Введите число b'); readln(b);
Write('Введите среднее геометрическое чисел а и b'); read(c);
d:=sqr(a*b);
Write(c=d);
end.
Обнаружение, удаление или обезвреживанте вирусов.
2d. Идентификатор не должен начинаться с цифры!
1пн-5уроков.
2- 6уроков
3-7уроков
4-6уроков
5-5уроков
1 в,
2 б,
3- 8 штук: ---, --+, -+-, -++, +--, +-+, ++-,+++.
4- 4,
5-г,
6 - б
7- г
8- атхуатжа:)