Напечатайте программу для Паскаля)Напечатать малое нечетное число, большее 200,

Напечатайте программку для Паскаля)
Напечатать малое нечетное число, большее 200, которое нацедил делится на 17

Задать свой вопрос
1 ответ
Var
i,j, x: integer;   
a1,a2,stop: boolean; 
Begin 
x:=200; 
stop:=true; 
while stop do   
begin     
x:=x+1;     
a1:=false;     
 a2:=true;     
 if x mod 2 = 0 then a2:=false;     
 if x mod 17 = 0 then a1:=true;     
 if a1 and a2 then stop:=false;           
end;       
writeln('x/17 = ',x);  
end.
//программка печатает число 221
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт