Сделайте программу с цикла while. Найдите среднее арифметическое всех целых чисел от 100 до b.
101
362
Ответы на вопрос:
A)var k,n: integer; begin read(k); if k div 7=k/7 then n: =7 else if k+1 div 7=k+1/7 then n: =6 else if k+2 div 7=k+2/7 then n: =5 else if k+3 div 7=k+3/7 then n: =4 else if k+4 div 7=k+4/7 then n: =3 else if k+5 div 7=k+5/7 then n: =2 else if k+6 div 7=k+6/7 then n: =1; writeln(n); end. б) var k,n: integer; beginread(k); if k-1 div 7=k-1/7 then n: =7 elseif k div 7=k/7 then n: =6 elseif k+1 div 7=k+1/7 then n: =5 elseif k+2 div 7=k+2/7 then n: =4 elseif k+3 div 7=k+3/7 then n: =3 elseif k+4 div 7=k+4/7 then n: =2 elseif k+5 div 7=k+5/7 then n: =1; writeln(n); end.
Популярно: Информатика
-
kasimova2000110.01.2022 14:10
-
pyanoes17.04.2021 06:01
-
Sold556127.10.2021 06:36
-
сафие8930.04.2021 00:33
-
IVANICH3120.11.2020 08:30
-
Dintyukld03.01.2022 17:18
-
solnechnaya206.11.2020 18:40
-
Shoka6322.01.2022 13:42
-
mzhenyak199903.02.2021 08:02
-
Каролина999926.06.2022 20:55