Var
N, i, max: shortint;
arr: array[1..50] of shortint;
v: string;
begin
v := ' NO';
max := -(MaxSmallInt);
readln(N);
for i := 1 to N do
begin
read(arr[i]);
if arr[i] > max then max := arr[i];
if arr[i] = 0 then v := ' YES';
end;
writeln(max, v);
end.
Два решения.
1. Токарев - плотник, Плотников - слесарь, Слесарев - токарь.
2. Токарев - слесарь, Плотников - токарь, Слеварев - плотник.
Предполагаю, что ЯП - Паскаль.
program sum3;
var
a,b,c,r:integer;
begin
write('введите a: ');
readln(a)
write('введите b: ');
readln(b);
write('введите c: ');
readln(c);
r:=a+b+c;
writeln('результат: ',r);
end.
Исходник на c++. Реализовал функцию, которая проверяет, является ли целое число полным квадратом. В функции main() приведен пример ее использования. То есть если число полный квадрат, выводится "Yes.", иначе "No.". Числа, которые можно проверять, имеют тип long long, то есть попадают в диапазон от -2^63 до 2^63-1. Думаю, сильно большие числа проверять ты не станешь, поэтому этого диапазона с лихвой хватит.
Готовая программа в прикрепленном текстовом файле