По инфе с на циклы: 1. вводятся 15 чисел, сколько из них удовлетворяют условиям нечетное и кратно 7 2. вводятся 10 чисел, найдите их сумму

254

273

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

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

arishatopic

Информатика

4,4(19 оценок)

Uses crt; var i,a,k: integer; begin for i: =1 to 15 do begin readln(a); if (a mod 2=1) and (a mod 7=0) then inc(k); end; writeln(k); end. uses crt; var i,a,sum: integer; begin sum: =0; for i: =1 to 10 do begin readln(a); sum: =sum+a; end; writeln(sum); end.