Склавиатуры вводится последовательность чисел,оканчивающаяся - вопрос №9513306 от Clime 22.07.2021 05:50

Question

Информатика: Склавиатуры вводится последовательность чисел,оканчивающаяся нулём.определить количество чисел,кратных 5,во введенной последовательности.

Clime · Answer

var i,k,x:integer; begin i:=0; x:=1; while x 0 do begin read(x); if (x mod 5=0)and(x 0) then k:=k+1; end; writeln( Количество чисел кратных 5= ,k); end....