Ответы 1
program zadanie1;
var
a,b :integer;
begin
b:=0;
writeln('vvodite chisla');
b:=0;
repeat
readln(a);
b:=b+1;
until a=0;
writeln('kol-vo=',b-1);
readln;
end.
var
a,b :integer;
begin
b:=0;
writeln('vvodite chisla');
b:=0;
repeat
readln(a);
b:=b+1;
until a=0;
writeln('kol-vo=',b-1);
readln;
end.
Премиум статус
Получайте самые быстрые
ответы на свои вопросы
ответы на свои вопросы
У вас остались
вопросы?
вопросы?