? 1. Сколько треугольников в фигуре,
изображенной на рисунке? Дайте им
характеристику (маленький, большой,
равный). Перечертите в тетрадь и
раскрасьте одинаковые.

Question

Информатика: ? 1. Сколько треугольников в фигуре, изображенной на рисунке? Дайте им характеристику (маленький, большой, равный). Перечертите в тетрадь и раскрасьте одинаковые.​

Rafaelnodat1 · Accepted Answer

Const n=20;
var a:array [1..n] of integer;
k,i:integer;
begin
writeln('Исходный массив:');
for i:=1 to n do
begin
a[i]:=random(90)+10;
write(a[i],' ');
end;
writeln;
k:=0;
for i:=1 to n do
if a[i] mod 2 = 0 then k:=k+1;
writeln('В массиве ',k,' четных чисел');
writeln('Элементы с нечетными номерами:');
for i:=1 to n do
if i mod 2 <> 0 then write(a[i],' ');
end.

Пример:
Исходный массив:
55 40 42 16 52 12 46 58 75 72 39 51 54 64 83 20 77 37 52 23
В массиве 12 четных чисел
Элементы с нечетными номерами:
55 42 52 46 75 39 54 83 77 52

? 1. Сколько треугольников в фигуре,изображенной на рисунке? Дайте имхарактеристику (маленький, большой,равный). Перечертите в тетрадь ираскрасьте одинаковые.​

MOGZ ответил

? 1. Сколько треугольников в фигуре,
изображенной на рисунке? Дайте им
характеристику (маленький, большой,
равный). Перечертите в тетрадь и
раскрасьте одинаковые.