Антивирус, джаву если есть, и все по идее
Var
a, b: real;
begin
read(a, b);
if a = 0 then
writeln('x может принимать любое значение')
else
writeln('x = ', b / a);
end.
Алеше надо ехать АБ+БГ+ГИ+ИК= 50+40+30+30=150:95=1,58 часов
Боре надо ехать БГ+ГИ+ИК= 40+30+30=100:60=1,67 часов
Ване надо ехать ВИ+ИК = 75+30=105:78=1,35 часов
Грише надо ехать ГИ+ИК = 30+30=60:45=1,33 часов
Грише ехать ближе всего(пр двум катетам) ГИ=30 км ИК= 30 км Всего путь Гриши 30+30=60 км. и проедет он их за 60:45=1,33 часов
Гриша доедет первым
//PascalABC.NET
//Версия 3.3, сборка 1634
begin
var a:=ReadSeqIntegerWhile(x->x>0).ToArray;
write('Периметр ', a.Count,'-угольник равен ',a.Sum);
end.
По идее, в первом у нас ответ Б, т.к. только это является хранением информации, и во втором тоже Б, т.к. архиваторы, как раз, служат для сжатия, так что:
1Б
2Б