<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
begin
var a,y:real; Read(a,y);
Write((5+a)/(7-y))
end.
<u>Пример</u>
5.2 -3.11
1.00890207715134
Решение - в прилагаемом файле.
У Сони и Гали должен быть одинаковый месяц, среди указанных дат только один месяц встречается дважды, это март.
У Гали и Кати должны совпасть числа, единственная пара равных чисел — 2 (в марте и июле).
Тогда день рождения Гали — 2 марта, так как она входит в обе пары. Значит, у Сони день рождения 20 марта (оставшаяся дата в марте), у Кати — 2 июля. Тамаре остаётся только 17 мая.
//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию
begin
var a := SeqWhile(1, i -> i + 1, i -> i < 20);
Println(a);
Println(a.Where(x -> x mod 3 = 0).Average);
Writeln();
for var i := ReadInteger('a =') to ReadInteger('b =') do
writeln(i, ' ', i * i, ' ', i * i * i);
end.
1) Z=4
((4 кратно 4) + (4 кратно 5)) →( 4 кратно 6)
( 1 + 0) → 0 = 0
2) Z=6
(0 + 0) → 1 =1
3) Z=7
( 0+0) → 0 =1
4) Z=12
(1 +0) → 1 =1 ответ 3