Решение задачи на паскале

[филимон]

С клавиатуры вводятся целые числа до тех пор пока не будет введено 10

Заранне огромное спасибо

[p51x]

кросспостинг запрещен правилами

[studen]

var
   s, n: integer;
begin
   s:= 0;
   repeat
      writeln('введите число');
      readln(n);
      if n mod 3 = 0 then
         s:= s + n;
   until n = 0;
   writeln('s = ', s);
   readln();

[Poma][a]

Сообщение от studen

var
   s, n: integer;
begin
   s:= 0;
   repeat
      writeln('введите число');
      readln(n);
      if n mod 3 = 0 then
         s:= s + n;
   until n = 0;
   writeln('s = ', s);
   readln();

а что делает столько замечательный код?
Вводит числа до тех пор, пока одно из них не станет = 0? // А просили 10
Зачем-то суммирует числа кратные 3...
И вообще компилятор кричать будет...


2 TC, а что Вы сделали для решения Вашей задачи? Написали пост? Этого мало! Покажите наработки, скажите что не получается!