+20
1 год назад
Информатика
Студенческий
var
x,i:integer;
flag:boolean;
begin
i:=0;
repeat
readln(x);
if x<0 then
flag:=true;
inc(i);
until i=4;
writeln(flag);
end.
Не помнишь пароль?
Нет аккаунта? Пройди быструю регистрацию!
Передумали регистрироваться? Предлагаем войти на сайт!
Вспомнили пароль? Войдите на сайт
var
x,i:integer;
flag:boolean;
begin
i:=0;
repeat
readln(x);
if x<0 then
flag:=true;
inc(i);
until i=4;
writeln(flag);
end.