Написать программу, которая из последовательности чисел от -40 до 30 выбирает те, которые отрицательные, меняет их знак и делит на 7. построить блок-схему и написать программу, .
pvpgame2345
3
31.08.2019 09:00
3
Другие вопросы по теме Информатика
parus27
13.07.2019 12:10
agnesa9890
03.12.2019 19:24
Викусик183
22.06.2019 16:50
Serenael666
22.06.2019 16:50
Мегамозг0511
25.01.2021 12:19
машкооо
25.01.2021 12:18
vishnevskayaya
25.01.2021 12:17
Анналолкек
17.07.2019 20:30
Angelinaburgano
17.07.2019 20:30
Популярные вопросы
- Через два часа после начала шоу зрители начнут приходитьчерез...
3 - На клетчатой бумаге со стороной клетки 1 см нарисована окружность...
3 - Какое положение в европе было у австрии в 18 веке...
3 - Вычислить момент импульса орбитального движения электрона , находящегося...
1 - Для чего человек использует озеро и водохранилище? ...
3 - Положение по отношению к линии перемены дат атлантического океана...
3 - Чему равна вероятность того, что при бросании трёх игральных костей...
1 - Притоками каких рек является десна, нижния тунгуска, сура, хопер...
2 - Соедените слова по казахскому напишите и вставте пропущенные...
1 - Решить .можете сылку дать где можно списать или скиньте ответы...
3
var a := Range(-40, 30);
a.Println();
writeln('');
a.Where(x -> x < 0).Select(x -> (- x) / 7).Print();
end.
var a,i:integer;
Begin
for i:=-40 to 30 do
read(a);
begin
if (a<0) then
a:=a*(-1);
a:=a/7;
end;
write(a);
End.