Ответы на вопрос:
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.
Популярно: Информатика
-
никаника620.03.2020 02:01
-
vladawin204.11.2021 15:53
-
LerryE05.02.2023 07:19
-
happyga25.07.2022 20:22
-
катя506807.03.2022 12:34
-
sowaties20.06.2021 03:01
-
marijamihaylow21.08.2020 09:11
-
rmshturkop01n7309.04.2022 01:37
-
valentingordien07.09.2020 22:44
-
марьяша1829.04.2023 09:27