1) Напишите программу которая в последствии натуральных чисел определяет, находит сумму двузначных чисел не кратных 4. В последо
вательности обязательно имеется двузначное число не кратное 4.
Вход: программа получает на выход кол-во чисел, а затем сами числа. Кол-во чисел не превышает 1000, а сами числа не превышают 30000.
Выход: Программа должна вывести одно число-кол-во нечётных чисел кратных 4.
2) Напишите программу которая в последствии натуральных чисел определяет, находит сумму двузначных чисел не кратных 7. В последовательности обязательно имеется двузначное число не кратное 7.
Вход: программа получает на выход кол-во чисел, а затем сами числа. Кол-во чисел не превышает 1000, а сами числа не превышают 30000.
Выход: Программа должна вывести одно число-кол-во нечётных чисел кратных 7 .
1) Для четверки: program ryazantsev; var i,n,t,s:integer; begin s:=0; readln(n); for i:=1 to n do begin readln(t); if (t mod 4 <> 0) and (t in [10..99]) then s:=s+t end; writeln(s) end. 2) Для семёрки: program ryazantsev; var i,n,t,s:integer; begin s:=0; readln(n); for i:=1 to n do begin readln(t); if (t mod 7 <> 0) and (t in [10..99]) then s:=s+t end; writeln(s) end.
Ещё добавь, что " Сосуды сужаются, кожа бледнеет" ,перед последним предложением про холод. Если тебе понравился мой ответ, сделай его лучшим, пожалуйста ❤️