Суть программы: Пользователь вводит неопределённое количество чисел, через enter. После того как он напишет 0 и нажмёт enter ввод чисел должен быть остановлен. И нужно найти количество чисел делящиеся либо на 2 либо на 5(0 не должен входить в эти числа, это как бы команда стоп). Со вторым проблем нет. Ввод делал через цикл. создавал массив. Но я не знаю как остановить цикл если был введён 0.
Вопрос Pascal! Помогите, пожалуйста, написать программу.
- Автор темы леха п
- Дата начала
Readln(x); while x <> 0 do begin // что-то делаем с этим числом Readln(x); end;
Массив тут нужен как рыбке зонтик. var x,s:integer; begin repeat s:=0; read(x); if (x mod 5=0)or(x mod 2=0) then s:=s+1 until x=0; writeln(s-1); readln; readln end.
Похожие темы
- Вопрос
- Вопрос
