С клавиатуры вводится последовательность чисел,заканчивающаяся нулём.Найти количество

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

Задать свой вопрос
Кира Алявдинова
Язык какой?
Илья Пчеловодов
Паскаль
1 ответ

var i,k,x:integer;

begin

i:=0;

x:=1;

while xlt;gt;0 do

begin

read(x);

if (x mod 5=0)and(xlt;gt;0) then k:=k+1;

end;

writeln('Количество чисел кратных 5= ',k);

end.

Андрюха Докашенко
Спасибо!!!
Jana Uzlenkova
i:=0; - излишний оператор, нигде i не используется больше. Зато k не инициализировано. Это выдаст глупый ответ, к примеру, во Free Pascal.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт