Помогите пожалуйста (1) периметр треугольника равен…

Question

Помогите пожалуйста (1) периметр треугольника равен P. Длины двух сторон равны между собой. Найти длины сторон.2) Вводится N целых чисел, найти количество чисел, которые больше нуля и кратны числу 5. На языке Паскаль (АВС)

Answer 1

77

mrrid

08 августа 2022

Const N=5; var i, a, b: integer; begin for i: =1 to N do begin readln (b); if (b > 0) and (b mod 5=0) then a: =a+1; end; writeln (a); end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить