Поместите этот макрос в проекте на любой лист и вызовите его
Sub aaa()
Pi = 4 * Atn(1)
r = CDbl(InputBox("Радиус круга"))
a = CDbl(InputBox("Сторона квадрата"))
s1 = Pi * r ^ 2
s2 = a ^ 2
MsgBox IIf(s1 > s2, "Площадь круга больше", IIf(s1 < s2, "Площадь квадрата больше", "Площади равны"))
End Sub
Var A : array[1..12] of integer; i,max : integer;
begin
for i:=1 to 12 do
begin;
read(A[i]);
if A[i]>max then max:=A[i];
end;
Writeln(max);
end.
В кабинет информатики без учителя не входить.
Не входить в верхней одежде
Без разрешения учителя не садиться и не включать компьютеры.
Посторонии предметы за ПК не брать
По кабинету не бегать.
Нельзя вставать из за компьютера не спросив учителя!!!!
1 красная, 2 зеленая, 3 красная, 4 желтая, 5 желтая, 6 синяя, 7 синяя