// PascalABC.NET 3.1, сборка 1174 от 22.02.2016 begin var a:=ReadArrInteger('Введите стороны',4).Sorted.ToArray; if (a[0]=a[1]) and (a[2]=a[3]) then Writeln('Можно построить прямоугольник') else Writeln('Нельзя построить прямоугольник') end.
Тестовые решения: Введите стороны 6 12 12 6 Можно построить прямоугольник
Введите стороны 6 12 12 7 Нельзя построить прямоугольник
На данный момент компьютер имеет важную роль в жизни каждого человека . Но у него есть и плюсы и минусы . Плюсы состоят в том что ,с компьютера мы можем найти нужную нам информацию в интернете ,мы можем общаться с людьми ,можем играть ,развлекаться, смотреть смешые ролики ,писать научные работы , развиваться .Минусы состоят в том что ,компьютер не очень то и хорошо действует на организм человека .Если слишком долго проводить свое время у компьютера ,то ваше зрение будет по тихоньку портится .Порой резко может заболеть голова . Появляется зависимость ,которая плохо влият на человека ,отнимает массу свободного времени . Я провожу у компьютера мало времени,только на все самое нужное .Я считаю это важным открытием для человечества .Главное соблюдать правила ,и проводить определенное колличество времени около него.
Значение компьютера в современной жизни Компьютер, или электронно-вычислительная машина, в нашей жизни занимает все большее место. С его можно напечатать текст или произвести математические вычисления, составить расписание движения поездов и управлять технологическим процессом на заводе, изучать иностранные языки и руководить полетом космической станции, вести бухгалтерские расчеты и планировать бюджет страны, общаться с людьми, находящимися в любой точке земного шара, и вести тончайшие хирургические операции, послать письмо другу и сделать фотографию. Я могла бы еще долго перечислять возможности современных компьютеров. Но и из этого перечня ясно, что развитие современных технологий, управление экономикой и производством, образование и медицина, наука и космос сегодня немыслимы без компьютера.
begin
var a:=ReadArrInteger('Введите стороны',4).Sorted.ToArray;
if (a[0]=a[1]) and (a[2]=a[3])
then Writeln('Можно построить прямоугольник')
else Writeln('Нельзя построить прямоугольник')
end.
Тестовые решения:
Введите стороны 6 12 12 6
Можно построить прямоугольник
Введите стороны 6 12 12 7
Нельзя построить прямоугольник