Запросить начало и конец отрезка и посчитать суму и количество числе, кратных 5 и количество чисел, которые не удовлетворяют этому условию. , (начинается вот так: screen 12 input "введите число"; и т.д.

274

476

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

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

neeestii

Информатика

4,8(29 оценок)

uses crt; var sum,count,count1,nachalo,konec: integer; beginsum: =0; count : = 0; count1: = 0; nachalo: =-10; konec: =10; for i: =nachalo to konec dobegin if i mod 5 = 0 then begin inc(count); sum: =sum+i; end else inc(count1); end; writeln('kolichestrvo chisel kratnyh 5 = ',count); writeln('ih suma = ',sum); writeln('kolichestrvo chisel ne kratnyh 5 = ',count1); readln; end.