1)(линейный) посадить дерево - выкапал яму, положил сажанец, завалил яму, полил
2) перед выходном на улицу одеться по пагоде. - холодно куртку, жарко плавки
3) кушаешь кашу - зачерпнул каши положил в рот так пока не закончится
//Pascal ABC.NET 3.1 сборка 1256
Var
a,b:integer;
begin
read(a,b);
writeln(((a div b)*a+(b div a)*b)/((a div b)+(b div a)));
end.
Пример ввода:
8
5
Пример вывода:
8
Var x,y: Integer;
begin
writeln('Введите x');
readln(x);
if x<0 then y:=x+5 else
y:=x+10;
writeln('y=',y);
end.
Program ww;
Uses crt;
Var a,b,p:integer
Begin
Readln(a,b);
If a>b then p:=a*a*a;
else p:=b*b*b;
Writeln(p);
End.