Как написать программу которая вводит числа до тех - вопрос №8240680 от LunyaShag 21.10.2020 11:04

Question

Информатика: Как написать программу которая вводит числа до тех пор, пока не будет введён 0. и подсчитайте их количество чисел!

LunyaShag · Answer

// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
var ans:=1;
while (ReadInteger('Введите очередное число:') <> 0)do
inc(ans);
Writeln('Всего чисел:', ans);
end.