С клавиатуры вводится 10 чисел[-100;500] Найти а)сумму всех частных чисел б) количество всех кратных 5 ,и не оканчивающихся на

Question

4 года назад

6

С клавиатуры вводится 10 чисел[-100;500] Найти а)сумму всех частных чисел б) количество всех кратных 5 ,и не оканчивающихся на

С клавиатуры вводится 10 чисел[-100;500] Найти а)сумму всех частных чисел
б) количество всех кратных 5 ,и не оканчивающихся на нуль

Знания

Информатика

1 ответ:

MaksymKyiv · Answer 1 · 2020-12-07T00:51:27+03:00

Program znanija;var i,n,j,sum:integer;s:string;a:array[1..100] of integer;beginn:=0; sum:=0;for i:=1 to 10 do begin writeln('Введите ',i,'-ый элемент массива [-100;500]'); read(a[i]); s:=inttostr(a[i]); j:=length(s); if (a[i] mod 5 = 0) and (strtoint(s[j])<>0) then n:=n+1; if a[i] mod 2 = 0 then sum:=sum+a[i]; end;writeln;writeln; writeln('Кол-во всех чисел кратных 5 и не оканчивающихся на ноль ',n);writeln;writeln('Сумма всех четных чисел ',sum);end.