// PascalABC.NET 3.2, сборка 1381 от 04.02.2017 // Внимание! Если программа не работает, обновите версию!
begin var age:=ReadInteger('Введите возраст:'); var gender:=ReadInteger('Введите пол (1-М, 2-Ж):'); if gender=1 then case age of 0..13:Writeln('Мальчик'); 14..20:Writeln('Юноша'); 21..70:Writeln('Мужчина'); else Writeln('Старец') end else case age of 0..13:Writeln('Девочка'); 14..20:Writeln('Девушка'); 21..70:Writeln('Женщина'); else Writeln('Старушка') end end.
История Интернета берёт свои истоки в конце 50-х 20 века, когда началась гонка ракетно-ядерных вооружений между СССР и США. В это время у СССР появились межконтинентальные ракеты доставить ядерное оружие на территорию США. Этот факт послужил толчком в принятии решения американскими военными о создании надёжной системы связи и передачи информации на случай войны. Агентство ARPA отвечавшее, за внедрение в американскую армию новых технологий предложило использовать для этого компьютерную сеть, которая не выйдет из строя при разрушении любого её узла или нескольких узлов.
// Внимание! Если программа не работает, обновите версию!
begin
var age:=ReadInteger('Введите возраст:');
var gender:=ReadInteger('Введите пол (1-М, 2-Ж):');
if gender=1 then
case age of
0..13:Writeln('Мальчик');
14..20:Writeln('Юноша');
21..70:Writeln('Мужчина');
else Writeln('Старец')
end
else
case age of
0..13:Writeln('Девочка');
14..20:Writeln('Девушка');
21..70:Writeln('Женщина');
else Writeln('Старушка')
end
end.