Ответы на вопрос:
Испания (мадрид) германия (берлин) португалия (лиссабон) италия (рим) франция (париж)
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.
Популярно: Информатика
-
LOTOTSKAA11.07.2021 02:39
-
seremet198406.11.2020 12:30
-
REDUCE00717.01.2021 23:32
-
Psix7314.11.2021 21:40
-
vvv7628.01.2022 01:40
-
соф2909.10.2020 22:27
-
hnwb16.10.2022 01:22
-
asylkhanova0501.10.2021 10:40
-
Pingvinchikc02.02.2023 13:49
-
nastyakholod9206.01.2021 12:59