Var
i: integer;
begin
readln(i);
if i mod 2 = 0 then
writeln(i);
else
writeln(i-1);
end
Не знаю как их назвать, но попробуй зайти в Мой Компьютер и удалить что-нибудь от туда, ни куда не заходя (то есть Диск С и т.д.)
Вот это нельзя удалить...
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
Begin
var (a,b,c):=ReadReal3('Введите a,b,c =');
var s:= sqrt(3*c*c*c + b * b * b * b * b)/(b-c);
var k:= sqrt(s) + abs(-a*b*c);
var y:= s + 3*k - (s*s*s*s/(b + c));
Writeln('y = ', y);
end.
Два решения.
1. Токарев - плотник, Плотников - слесарь, Слесарев - токарь.
2. Токарев - слесарь, Плотников - токарь, Слеварев - плотник.