Var
t,v:integer;
Begin
Write('Введите температуру воздуха(°C): ');ReadLn(t);
if t > -20 then WriteLn('Дети идут в школу')
else if t<-25 then WriteLn('Дети в школу не идут')
else
Begin
Write('Введите скорость ветра(м/с): ');ReadLn(v);
if v>=7 then WriteLn('Занятия отменяются')
else WriteLn('Занятия не отменяются');
End
End.
ФАЙЛ И ПАПКА!ЭТО ТОЧНО 5ПОЛУЧИШЬ Я ТЕБЯ УВЕРЯЮ
1) п2 - Е (конечный), п3 - Г, п4 - К, п6 - В (начальный), п7 - Д. Точки А и Б нам не интересны. От В есть пути до Д, К и Г. От В до Д - 20, от Д до Е - 15, итого 35. От В до К - 25, от К до Е 5, итого 30. От В до Г - 10, от Г до К - 10, от К до Е - 5, итого 25. Ответ: путь В - Г - К - Е, 25.
2) Нужно определить родителей и детей по их номерам в столбце ID, затем узнать их разницу в возрасте и сверить с условием. Под условие попадает только человек с ID 2045. Ответ 1.
3) Нужно сложить количество стрелок, ведущих через пункт Ж к пункту Л не через пункт З. Их количество 15. Ответ 15.
Речовини складаються з молекул та атома....………………
1101011000 в двоичной системе)