Первая задача
program firstProgram
var<span> ug1, ug2: real;
</span>begin<span>
write("Введите первый угол: ");</span><span>
read(ug1);</span><span>
write("Введите второй угол: ");</span><span>
read(ug2);</span>
<span> if ((ug1 + ug2) < 180)</span><span>
begin</span><span>
if ((ug1 > 90) or (ug2 > 90)) write("Треугольник тупоугольный");</span><span>
else if ((ug1 = 90) or (ug2 = 90)) write("Треугольник прямоугольный");</span><span>
else write("Треугольник остроугольный");</span><span>
end
</span><span>end</span>
var a:array[1..10] of integer;
i,s:integer;
Begin
randomize;
for i:= 1 to 10 do begin
a[i]:= random(100);
s:=s+a[i];
end;
writeln(s);
End.
var a:array[1..10] of integer;
i,mk,pk,s,p:integer;
Begin
randomize;
p:=1;
for i:= 1 to 10 do begin
a[i]:= random(30+10)-10;
if a[i]>=0 then begin
pk:=pk+1;
s:=s+a[i];
end
else begin
mk:=mk+1;
p:=p*a[i];
end;
end;
writeln(pk,s,mk,p);
End.
1.
Var A,B : Integer;
Begin
Readln(A,B);
If A>B then Writeln(A,' ',B*B) else Writeln(B,' ',A*A)
end.
2.
Var A : Byte;
Begin
Readln(A);
Case A of
1..3 : Writeln('Первый квартал');
4..6 : Writeln('Второй квартал');
7..9 : Writeln('Третий квартал');
10..12 : Writeln('Четвертый квартал');
end;
end.
замок ( не лает не кусает и в дом непускает)
