+15
1 год назад
Информатика
10 - 11 классы
program chisla ;
var a, s : byte;
begin
repeat
read (a);
s:=s+a;
until s>20;
writeln ('s=', s );
end.
Не помнишь пароль?
Нет аккаунта? Пройди быструю регистрацию!
Передумали регистрироваться? Предлагаем войти на сайт!
Вспомнили пароль? Войдите на сайт
program chisla ;
var a, s : byte;
begin
repeat
read (a);
s:=s+a;
until s>20;
writeln ('s=', s );
end.