Ядро программы состоит из простой проверки If A(i) Mod 2 = 0 Then k = k + 1 В переменной к накапливается счетчик четных элементов. Если в языке нет функции Mod (остаток от деления), можно написать так: If Int (A(i) / 2) = A(i) / 2 Then k = k + 1 Функция Int - целая часть числа - есть во всех языках программирования.
№1 var a, b, c: integer; begin read(a, b, c); if((a = b) or (b = c) or (c = a)) then write('Треугольник равнобедренный') else write('Треугольник неравнобедренный'); end.
БЛОКСХЕМА: начало ввод сторон(a, b, c) если a = b или b = c или с = a, то вывести: 'треугольник равнобедренный' иначе вывести: 'треугольник неравнобедренный' конец
№2 var n, s, i: integer; begin s := 0; read(n); for i := 20 to n do begin if (i mod 2 <> 0) then s := s + i; end; write(s); end.
БЛОКСХЕМА: начало s := 0, i := 20 ввод числа n пока i не равно n если i - нечётное, то прибавить к s вывести s конец
№1 var a, b, c: integer; begin read(a, b, c); if((a = b) or (b = c) or (c = a)) then write('Треугольник равнобедренный') else write('Треугольник неравнобедренный'); end.
БЛОКСХЕМА: начало ввод сторон(a, b, c) если a = b или b = c или с = a, то вывести: 'треугольник равнобедренный' иначе вывести: 'треугольник неравнобедренный' конец
№2 var n, s, i: integer; begin s := 0; read(n); for i := 20 to n do begin if (i mod 2 <> 0) then s := s + i; end; write(s); end.
БЛОКСХЕМА: начало s := 0, i := 20 ввод числа n пока i не равно n если i - нечётное, то прибавить к s вывести s конец
If A(i) Mod 2 = 0 Then k = k + 1
В переменной к накапливается счетчик четных элементов.
Если в языке нет функции Mod (остаток от деления), можно написать так:
If Int (A(i) / 2) = A(i) / 2 Then k = k + 1
Функция Int - целая часть числа - есть во всех языках программирования.