Program skynet;
var a,b,c,max:integer;
begin
writeln('Введите 3 целых числа');
readln(a,b,c);
if a>b then max:=a
else
if b>c then max:=b
else max:=c;
writeln('Наибольшее число = ',max);
end.
Алг Сумма
нач
цел a
вещ x, step, s
вывод "Введите последнее число: ", нс
ввод a
x := 1
step := 0.1
s := 0
нц пока x <= a+step/2
s := s + x*x
x := x + step
кц
вывод "s = ", s
кон
Var ch:integer;beginread(ch);while ch>0 do begin if (ch mod 2)=0 then begin ch:=ch div 2; write(2); end else begin ch:=ch-1; write(1); end; end;end.