Вводить последовательность целых чисел пока не будет введено число сумма цифр которого равна 6

@assass · Регистрация: 29.09.2012

Author24 — интернет-сервис помощи студентам

Pascal

var a,s:integer;
begin
s:=0;
repeat
writeln('ââîäèòå ÷èñëà');
readln(a);
repeat
s:=s+a mod 10;
a:=a div 10;
until a<>0;
until s<>6;
end.

выбрасывает из цикла
как будет правильно?

@Puporev · 30.10.2012, 10:13

Комментарий модератора

За оформление тем в верхнем регистре буду бить по голове карточками.

Добавлено через 5 минут

Pascal

uses crt;
var a,s:integer;
begin
writeln('вводите числа, окончание ввода число с суммой цифр=6');
repeat
readln(a);
a:=abs(a);//вдруг отрицательные введем
s:=0;
while a>0 do
 begin
  s:=s+a mod 10;
  a:=a div 10;
 end;
until s=6;
end.

	30.10.2012, 10:13