Ответ на фото. Таблица истинности составляется по формуле.
338 байтов для кодирования 300 различных значений
Хотелось бы узнать название языка.
компьютер
↓ ↓ ↓ ↓
процессор память устройства ввода устройства вывод
↓ ↓
внутр пам внешн память
↓ ↓
носитель инф накопитель
var
mas:array[1..3] of integer;
i,min:integer;
begin
for i:=1 to 3 do
begin
min:=maxint;
writeln ( 'Введите возраст ',i,'-ого участника');
readln (mas[i]);
if mas[i]<min then min:=mas[i];
end;
writeln (min);
end.