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 0

4 года назад

Написать программу, которая определяет, принадлежит ли заданное число интервалу от 10 до 30.

Людмила Омск [150]

Var a,b,x:integer;
begin
writeln('введите число x:');
readln(x);
writeln('введите интервал от a до b:');
readln(a,b);
if (x>=a) and (x<=b) then writeln('x принадлежит данному интервалу') else
writeln('x не принадлежит данному интервалу');
readln;
end.

0 0

4 года назад

Сколько будет MDCXLVIII

Sershara

I 1
V 5
X 10
L 50
C 100
D 500
M 1000
Ответ: 1648.

0 0

4 года назад

В чем преимущество расширений текстовых документов .txt от .rtf

Irina93249324

.txt - Это формат текста, состоящего из любых символов.
.rtf - Это формат документов, внутри могут быть как текст, так и картинки.

0 0

4 года назад