как написать программу которая вводит числа до тех пор, пока не будет введён 0. И подсчитайте их количество чисел!
Ответы на вопрос
Ответил danulpopov
0
// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var ans:=1;
while (ReadInteger('Введите очередное число:') <> 0)do
inc(ans);
Writeln('Всего чисел:', ans);
end.
// Внимание! Если программа не работает, обновите версию!
begin
var ans:=1;
while (ReadInteger('Введите очередное число:') <> 0)do
inc(ans);
Writeln('Всего чисел:', ans);
end.
Ответил Аноним
0
Можно все было сделать одним оператором )))
Ответил Аноним
0
Writeln('Всего чисел: ',
ReadSeqIntegerWhile('Введите очередное число:',t->t<>0).Count)
ReadSeqIntegerWhile('Введите очередное число:',t->t<>0).Count)
Новые вопросы