Uses crt;
var x,y:real;
begin
readln(x);
if x<4 then y:=2*x*x*x+1/x-5
else y:=3*x*x-2;
writeln(y);
<span>end.</span>
1) Труп
2) Конопля
3) Маки
4) Гладиолусы
5) Пионы
6) Толчок рядом с пионами
Ответ
2.
Столбчатая диаграмма; потому что там есть годы, четко видно
как идет прирост населения, кстати вы рисунки не забывайте загружать.
Uses crt;
var a,b,c,input:integer;
begin
readln(input);
a := input div 10;
a := a div 10;
b := input div 10;
b:=b mod 10;
c := input mod 10;
if (a + b + c) > 10 then writeln('Больше 10') else writeln('Меньше 10');
end.