Int a[10][10];
a[0][2] = 1;
a[0][4] = 2;
a[0][6] = 3;
a[0][8] = 4;
a[2][2] = 5;
a[2][4] = 6;
a[2][6] = 7;
For i := 1 to N do begin
if ((a[i]+a[i+1]) mod 2=0)and((a[i]*a[i+1])>40) then
k:=k+1;
end;
<span>writeln(k);</span>
Ответ
2.
Столбчатая диаграмма; потому что там есть годы, четко видно
как идет прирост населения, кстати вы рисунки не забывайте загружать.
<em>// PascalABC.NET 3.3, сборка 1611 от 06.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
15.To(30).Tabulate(x->x*1.8+32).Println(NewLine)
end.
<u>Результат</u>
(15,59)
(16,60.8)
(17,62.6)
(18,64.4)
(19,66.2)
(20,68)
(21,69.8)
(22,71.6)
(23,73.4)
(24,75.2)
(25,77)
(26,78.8)
(27,80.6)
(28,82.4)
(29,84.2)
(30,86)
1 круговая
2 диаграмма
3 наглядно
4 таблица
5 схемы , столбчатая
6 иллюстрация
7 текст
лови