Много ! составить понятную программу используя условный оператор if,then,else: известны оценки ученика по пяти предметам,верно ли что среди них нет троек
136
237
Ответы на вопрос:
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.
Популярно: Информатика
-
multikonlive07.05.2021 11:45
-
Sergei7410.05.2021 21:09
-
123Настенька31.07.2022 17:42
-
cat50419.07.2020 14:02
-
vovbakum01.11.2021 12:23
-
vgfhdijubvn21.04.2021 22:16
-
myisipov1erg31.03.2022 07:44
-
tuzor02.04.2023 02:14
-
VenyaMenya12.02.2020 07:37
-
Severelinka23.06.2020 05:53