Переведите числа из десятичной системы счисления в двоичную:
а) 12610;
б) 543210.
118
202
Ответы на вопрос:
Var st: real; mn: integer; d: 1..7; begin write('введите стоимость 1 минуты в рублях st='); readln(st); write('введите продолжительность разговора в минутах mn='); readln(mn); repeat write('введите номер дня недели d='); readln(d); until d in [1..7]; case d of 1..5: st: =st*mn; else st: =st*mn*0.8; end; write('стоимость разговора=',st: 0: 2); readln end.
Популярно: Информатика
-
Lollital29.11.2020 00:02
-
Versija0205.04.2023 09:07
-
Алёна73828.02.2020 11:46
-
vaniaslavioglo11.08.2022 19:30
-
kristina133331323.02.2021 18:24
-
Inosya26.05.2020 19:28
-
булат5707.01.2023 18:59
-
vitalytubvitalnru02.07.2022 04:38
-
никусь222216.06.2020 16:22
-
annachernoirova09.01.2021 10:22