с клавиатуры вводится последовательность чисел до тех пор пока не будет

Question

С клавиатуры вводится последовательность чисел до тех пор пока не будет введено число 0 отыскать количество чисел из введенных кратных 5

Павел Горных 2019-07-16 03:18:38

Я вам что экстрасенс? Назовите язык программирования!

Юрий Горников 2019-07-16 03:20:42

gfcrfkm

Тузанкин Никита 2019-07-16 03:28:26

паскаль

Василиса 2019-07-16 03:29:35

Пожалуйста:)

1 ответ

, оставишь ответ?

Имя:*

E-Mail:

Похожие вопросы

Юрок Киссиля · Answer 1 · 2019-07-16 03:18:21+3:00

Юрок Киссиля 2019-07-16 03:18:21

Var a, b : integer;beginb:=0;readln(a);while alt;gt; 0 dobeginif a mod 5 = 0 then b:=b+1;readln(a);end;writeln('Кол-во чисел кратных 5: ', b);end.

Севиева Надя 2019-07-16 03:20:39

var a, b : integer;beginb:=0;readln(a);while a<> 0 dobeginif a mod 5 = 0 then b:=b+1;readln(a);end;writeln('Кол-во чисел кратных 5: ', b);end.

Наталья Телятова 2019-07-16 03:21:30

Спасибо громадное

Шурик Сементинов 2019-07-16 03:28:08

:)

Серж Шамро 2019-07-16 03:32:22

Будут ещё - задавайте:)