Петя сидит на уроке и пишет в блокноте разные четвёрки чисел: или произвольные, или длины двух стороны прямоугольника, его площадь и периметр (только в таком порядке). Даны четыре числа. Проверь, могут ли они описывать прямоугольник. Если да, выведи "прямоугольник", если нет — "произвольные числа".
Ввод Вывод
2
3
6
10 прямоугольник
2
3
10
6 произвольные числа
Примечание: площадь прямоугольника со сторонами a и b равна a × b, периметр — 2 × (a + b).
Площадь прямоугольника со сторонами 2 и 3 — это 6, а периметр — 10. Так как Петя записывает свои четвёрки в определённом порядке, числа 2, 3, 6, 10 описывают прямоугольник, а 2, 3, 10, 6 Петя написал случайно.
2. Клод Шеннон - основатель теории информации .Приложил свои руки в инженерии, кибернетики, электротехнике, математике и теории информации. Разработал теорию связи кодирования. Создал промышленную радиоуправляемую игрушку , ввёл понятие "бит" - единица измерения. Отмечен многими наградами и премиями, и Нобелевской премией.
3. Тедом Нельсоном в 1965 году
4. Тим Бернерс-Ли в 1980 году
Begin
Write('N = ');ReadLn(N);
Write('Искомые числа:');
For N:= 1 to N do
Begin
B:=N;
k:=1;
// перед каждой проверкой k:=1
// и если число не делится на любую из своих цифр, то k:=0
While B > 0 do
Begin
if B mod 10 = 0 then k:=0
// B mod 10 - это остаток от деления B на 10
// то есть, например, 123 mod 10 = 3
else if N mod (B mod 10) > 0 then k:=0;
B:=B div 10
// целая часть от деления B на 10
// 123 div 10 = 12
End;
if k = 1 then Write(' ',N)
End;
End.