PascalABC.Net
1)
begin
var (x, y, z) := ReadInteger3('Введите 3 числа через пробел: ');
Println(if (x + y + z) mod x = 0 then 'Делится без остатка' else 'С остатком');
end.
2)
Println('Среднее арифметическое: ', Range(10, 99, 1).Where(x -> x mod 2 = 0).Average);
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
PascalABC.Net
1)
begin
var (x, y, z) := ReadInteger3('Введите 3 числа через пробел: ');
Println(if (x + y + z) mod x = 0 then 'Делится без остатка' else 'С остатком');
end.
2)
begin
Println('Среднее арифметическое: ', Range(10, 99, 1).Where(x -> x mod 2 = 0).Average);
end.