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.
(0 && 1) || ¬(0 || 1) && ¬1 = 0 || ¬1 && 0 = 0 || 0 && 0 = 0 && 0 = 0 (ложь)
Принцип такой, формулу свою вставь
<span>uses crt;
var x,e,s,t:real;
k:integer;
begin
clrscr;
e:=0.000001;
write('x=');
readln(x);
s:=0;
t:=1;
k:=0;
while abs(t)>e do
begin
k:=k+1;
t:=-t*x*x/(2*k*(2*k-1));
s:=s+t;
end;
write('S=',s:0:6);
readln;
end.</span>
1)
монитор
клавиатура
программист
процессор
2)на фотке
3)
Досье
Досуг
Доступ
Досада
Доспехи
Достаток
Достояние
Достижение
Достоинство
Достопримечательность
Радость
Гордость
Молодость
4) разбиваем это огромное число по две цифры. Первая цифра по горизонтали, вторая по вертикали. Таким образом получаем:
Что? - Где? - Когда?