Сделать блок ! на языке паскаль 1.заданы стороны треугольника. проверить является ли он равнобедренным 2. найти сумму нечетных чисел в промежутке от 20 до n

176

312

Посмотреть ответы 2

Ответы на вопрос:

kudryashovaek

Информатика

4,6(83 оценок)

№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 конец