Ответ
2.
Столбчатая диаграмма; потому что там есть годы, четко видно
как идет прирост населения, кстати вы рисунки не забывайте загружать.
Var
x, y, z: integer ;
begin
x := 19;
y := 3;
z := y * 2;
y := x mod y;
x := x - z;
y := y + z;
writeln('x = ', x, ', y = ', y, ', z = ', z);
end.
Вывод
x = 13, y = 7, z = 6
Алгоритм:
Найти 1й элемент строки и записать его в поле i,j ,затем сравнивать все последующие значения той строки с этой переменной.
Program z1; Var a,b,c,d,e,f,s:string;Begin write('Введите название животного - '); readln(s); writeln; a:='кошка'; b:='собака'; c:='птица'; d:='мышь'; e:='лиса'; f:='волк'; if (s=a) then writeln(s,' - cat') else if (s=b) then writeln(s,' - dog') else if (s=c) then writeln(s,' - bird') else if (s=d) then writeln(s,' - mouse') else if (s=e) then writeln(s,' - fox') else if (s=f) then writeln(s,' - wolf') else writeln('Таких животных в базе нету'); <span>End.</span>
A = P/4
S = a*a
Вывод S
Весь алгоритм собсна