Даны размеры прямоугольных открытки и конверта. Определить, поместится ли открытка в конверт. Ввод
В первой строке находятся размеры открытки, во второй – размеры конверта. Размеры открытки и конверта – целые числа от 1 до 100.
Вывод
Если открытку можно вложить в конверт, вывести "Possible", если нет – вывести "Impossible".

Напишите задачу на очень нужно

56 кбит/с = 56000 бит/с (в скорости предачи данных обычно 1кбит/с = 1000 бит/с )

посчитаем кол-во данных, которые передали за 5 секунд:

56000 бит/с * 5 с = 280000 бит

в обычной кодировке один символ занимает один байт (то есть 8 бит)

посчитаем количество переданных символов текста:

280000 бит / 8 = 35000 символов

var

i: integer;

begin

for i: =100 to 999 do

if ((i+1) mod 2=0) and ((i+2) mod 3 =0) and ((i+3) mod 4=0) and ((i+4) mod 5 =0)

then writeln(i);

end.

совершенное число это число равное сумме своих делителей отличных от самого числа

var i, s,j : integer;

begin for i : = 5 to 200 do begin s : = 0; for j : = 1 to i div 2 do if (i mod j = 0) then s : = s + j; if s = i then writeln(i); end; end.

var

a,b: integer;

begin

write('введите в одной строке два целых числа и нажмите < enter> ');

readln(a,b);

if a=b then writeln('числа равны')

else 

if a> b then writeln(a,' больше')

else writeln(b,' больше')

end.