ввести с клавиатуры 4 целых числа при этом 3 из их

Var a,b,c,d:integer;
Begin
Write('Введите числа: ');
Readln(a);
Readln(b);
Readln(c);
Readln(d);
If b=c then If c=d then Writeln(a);
If a=c then If c=d then Writeln(b);
If a=b then If b=d then Writeln(c);
If a=b then If b=c then Writeln(d);
End.

Арсений Шпунарский 2019-08-20 23:11:41

Не знаю

Якубжанова Эльвира 2019-08-20 23:13:53

А что ты еще знаешь?

Диана 2019-08-20 23:17:40

Я отличник но больше всего люблю химию, физику, матему, биологию, историю и инфу.

Эльвира 2019-08-20 23:26:43

ООООО по физике завтра у нас КР =)

Татьяна Гумокина 2019-08-20 23:27:50

Арифметику я тоже знаю , биологию ну так для себя =)

Черносвистов Тема 2019-08-20 23:32:11

а у нас в предпоследний урок четверти

Альбина Маренгольд 2019-08-20 23:39:06

))

Владимир Васлатий 2019-08-20 23:45:55

Понятно го в лс

Толик Чумбайкин 2019-08-20 23:50:06

?.

Гертопа Виктория 2019-08-20 23:53:32

отметь пж мой ответ как наилучший))

О проекте

ввести с клавиатуры 4 целых числа при этом 3 из их

Добро пожаловать!