Регистрация
Дерижабль
16.08.2022 06:54
Информатика
Есть ответ 👍

1) даны целые числа a, b, c, d. сколько среди них отрицательных и оканчивающихся на 7. 2) даны целые числа a, b, c, d. найдите сумму тех из них, которые кратны 4, больше -50 и не превышают 70. 3) даны целые числа a, b, c, d. найдите сумму тех из них, которые кратны 4 и по модулю не превышают 100. паскаль

272
424
Посмотреть ответы 2

Ответы на вопрос:

незнайка1187
незнайка1187
4,7(92 оценок)
// pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! begin   writeln('k=',       readseqinteger('a,b,c,d=',4).where(x-> (x< 0) and (-x mod 10=);   writeln('s=',readseqinteger('a,b,c,d=',4).           where(x-> (x> -50) and (x < =70) and (x mod 4=);   writeln('s=',readseqinteger('a,b,c,d=',4).           where(x-> (abs(x)< =100) and (x mod 4=) end. каждый оператор writeln решает одну из . если надо все отдельно - просто удаляйте два остальных оператора.
Annuta88
Annuta88
4,6(52 оценок)
Третє або перше я там думаю

Популярно: Информатика