Var
y, x: real;
begin
read(x);
if (x > -20) and (x < -10) then
y := x * x * x * x
else if (x > -10) and (x < -20) then
y := abs(x)
else if ((x > 0) and (x < 20)) or ((x > 30) and (x < 70)) then
y := 45
else if ((x > 80) and (x < 100)) or ((x > 110) and (x < 140)) or (x > 180) then
y := abs(x - 4)
else
y := abs(x + 2);
writeln(x, ' ', y);
end.
Для компа или для человека?
1) 1214
разделяем на 2 числа 12 и 14, НОК чисел равен 2
получаем 12=6*2
14=7*2, значит трёхзначное число может быть 627 или 726
Разрабатывают разработчики.
исполняет исполнитель.
Всегда Ваш, Капитан Очевидность.
Var s:string;k,i:integer;beginreadln (s);k:=0;for i:=1 to length(s) doif s[i]='d' then k:=k+1;writeln(k);end.