Вопрос по информатике:
Help!Помогите решить,можно ответ просто,но если не сложно - объясните.
Заранее огромное спасибо!
Пожаловаться
- 19.04.2018 14:16
- Информатика
- remove_red_eye 2018
- thumb_up 28
Ответы и объяснения 1
! ForTran 95
program for_help
implicit none
integer :: x, y
read *, x, y
do while(x<16)
if (x>y) then
x = x - 2
y = y + 4
else
x = x + 5
y = y - 3
end if
print *, x, y
end do
end program for_help
x = 3, y = 16
x|y
3 16
8 13
13 10
11 14
-------
16 11
x|y
7 9
12 6
10 10
15 7
13 11
11 15
--------
16 12
program for_help
implicit none
integer :: x, y
read *, x, y
do while(x<16)
if (x>y) then
x = x - 2
y = y + 4
else
x = x + 5
y = y - 3
end if
print *, x, y
end do
end program for_help
x = 3, y = 16
x|y
3 16
8 13
13 10
11 14
-------
16 11
x|y
7 9
12 6
10 10
15 7
13 11
11 15
--------
16 12
Пожаловаться
- 20.04.2018 09:27
- thumb_up 10
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы