не могу решить задачу... 8( Опции

[d00mik]

совсем недавно я начел изучать паскаль так что в нём хорошо не шарю...
а паскаль я изучаю на вашем сайте (Уроки от Дмитриева Эдуарда) Урок 8 и там есть домашние задание
" Написать программу получения числа из отдельно введенных однозначных чисел. Для этого постарайтесь придумать свой алгоритм, реализующий цикл для ввода чисел. Концом ввода должен служить нуль."
как же это делается... ?
кстати хотелось бы если у каждого домашнего задание были бы и ответы...

Сообщение отредактировано: d00mik - 16.08.2005 0:48

[klem4]

virt, идея класная, но ты действительно ошибся немного Я поправил :

uses crt;

var t : longint;
    i : byte;

begin

   clrscr;

   t := 0;

   repeat

       readln(i);

       if i<>0 then
        t := t*10 + i;

   until i=0;

   writeln(t);

   readln;

end.