Что надо написать, что при вводе нуля, последовательность заканчивалась?
желательно через for
Код Паскаля
Можно и через For
Var i,a:integer;
Begin
for i:=1 to MaxInt do
begin
Readln(a);
if a=0 then Break
end;
End.
народ. читайте внимательно. ведь ученику надо через for обязательно)))
Pascal:
repeat
readln(a);
until StrToInt(a) <> 0;
C#:
int a = 0;
do
{
a = int.Parse(Console.ReadLine());
} while a != 0;
while ((c = getchar()) != '0' || c != EOF) {
/* что-то делаем с прочитанным символом c */
}
⇢