Найти сумму первых чисел нескольких трехзначных чисел, признак окончания чисел 0. паскаль.

Question

Оксана Коскова · Accepted Answer

"Первое число числа... " Ты понимаешь, что пишешь? 
 
var a,s:integer; 
begin 
s:=0; repeat readln(a); while a>=10 do a:=a div 10; s:=s+a; until a=0; writeln(s); readln 
end.

Егор Заводнов · Answer

ты про что?

Дображелаювсем · Answer

//Я так понял, что вводятся три трёхзначных числа и потом считается их сумма: 
var a,k,s:Integer; 
begin 
s:=0; 
k:=0; 
repeat 
readln(a); 
if(a>99) and (a<1000) then begin 
inc(s,a); 
inc(k); 
end; 
until k=3; 
writeln('s = ',s); 
end.