Утверждение Миши ложно в 1 части и истинно в 2 части.
Утверждение Коли ложно в обеих частях.
Утверждение Сергея истинно в обеих частях.
Это полностью соответствует условию, ответ - Миша
begin
var n := ReadInteger;
if n mod 25 = 0 then
Println(25, n div 25)
else
begin
var (n1, n2) := (24, 25);
var r: integer;
repeat
for var i := 1 to n div n1 do
begin
r := (n - n1 * i) mod n2;
if r = 0 then
begin
Println(n1, i + (n - n1 * i) div n2);
exit
end;
end;
Dec(n1);
Dec(n2);
until n1 = 0;
end;
end.
===== PascalABC.NET =====
В каких паскалях?!! Где условие задачи?
<u>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadReal('Введите число:');
if n>0 then Writeln('Число положительное')
else if n<0 then Writeln('Число отрицательное');
if n=35 then n:=71
else if n<35 then n-=23;
Writeln('Результат: ',n)
end.
Очень простой пример задачи - вычислить площадь треугольника по трем сторонам (использовать формулу Герона). Исходные данные здесь - это три стороны (например, a, b, c); промежуточное значение - полупериметр p (используется в формуле Герона); итоговое значение S - площадь треугольника.