4. Знаменито, что x amp;gt; 100. Укажите меньшее такое (т. е. большее

4. Знаменито, что x gt; 100. Укажите меньшее такое (т. е. большее 100) число x, при вводе которого метод печатает 40.
var x, L, M: integer;
begin
readln(x);
L := x-10;
M := x+30;
while L lt;gt; M do
if L gt; M then
L := L - M
else
M := M L;
writeln(M);
end.

Задать свой вопрос
Сергей Сянуков
130
1 ответ
Label metka;
var x, L, M: integer;
begin
for var i:=100 to 300 do
begin
  x:=i
;L := x-10;
M := x+30;
while L lt;gt; M do
  if L gt; M then   
 L := L - M 
 else      
 M := M - L; 
   If (M=40)  then 
   begin
   Println(x); 
  goto metka; 
  end; 
   end; 
 metka:
end.
Roman Zajdetreger
но это вновь программно
Эмилия Правдивая
Не то что просили написал
Илюшка Синников
исправила программку чтобы печаталось только 130, но отредактировать наружный ее вид не хватило медли(
Toha Pechernikovaskij
вообщем это задание 20 егэ, я сама пользуюсь одним веб-сайтом, там эти задачи анализируются без компютера-взгляни если занимательно http://kpolyakov.spb.ru/school/ege.htm
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт