aamer9992680
?>

заранее Известен диапазон [0, 36]. Запишите его на языке программирования. 2) Используя готовый листинг программы, переделать его к следующему условию задачи: Дан массив Q, состоящий из 20 элементов целого типа. Найти сумму элементов массива. Program zadacha; var mass: array [1..15] of real; i, z: integer; begin for i:=1 to 15 do readln (mass[i]); for i:=1 to 15 do if mass[i]>8 then z:= z * mass[i]; writeln ('Сумма массива равна: ', z); end.

Информатика

Ответы

prokodasha
По автомагистрали Москва-Симферополь два спортсмена одновременно начали тренировочный велопробег навстречу друг другу. В тот момент, когда между велосипедистами осталось всего 300 километров, пробегом очень заинтересовалась одна любопытная муха. Слетев с плеча одного велосипедиста и опережая его, она помчалась навстречу другому. Встретив второго велосипедиста и убедившись, что все у него хорошо, она немедленно повернула обратно. Долетела муха до первого спортсмена и опять повернула ко второму.
Так она и летала между сближавшимися велосипедистами до тех пор, пока велосипедисты не встретились. Тогда муха успокоилась и села одному из них на нос. Муха летала между велосипедистами со скоростью 100 километров в час, а велосипедисты все это время ехали со скоростью 50 километров в час.

Сколько километров пролетела муха?

Расстояние между велосипедистами сокращалось на 100 километров каждый час, и расстояние между ними сократилось с 300 километров до нуля в течение трёх часов. За эти три часа, по какой бы траектории ни летала муха со скоростью 100 километров в час, она пролетела бы (и она пролетела) 300 километров. Не знаю, что сказали бы на это энтомологи, но ни один математик возражать, я думаю, не станет. 

Эту задачу я встречал с другими числами и в другом, более жизненном, воплощении: собачка бегала от одного знакомого ей пешехода к другому, пока они не встретились.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

заранее Известен диапазон [0, 36]. Запишите его на языке программирования. 2) Используя готовый листинг программы, переделать его к следующему условию задачи: Дан массив Q, состоящий из 20 элементов целого типа. Найти сумму элементов массива. Program zadacha; var mass: array [1..15] of real; i, z: integer; begin for i:=1 to 15 do readln (mass[i]); for i:=1 to 15 do if mass[i]>8 then z:= z * mass[i]; writeln ('Сумма массива равна: ', z); end.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

infooem
elena-novikova-1992
iriska-669
Fruktova Gazaryan
tershova
Mariya694
Михайлович_гергиевич315
составьте алгоритм маляра, шофёра
iuv61
olgakuz00261
Сергеевич
merung
mulyugina365
Сайжанов
Nadirovich1317
ale99791308