ТутРешу.Ру

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

Задание:

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

Решение:

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.




Знаете другой ответ?

Отправить свой ответ