Python/Створити програму, яка при введенні суми поповнення рахунку визначить тарифний план, який Ви можете придбати та виведе кількість наданих Вам
хвилин, sms та ГБ інтернету. Визначить Ваш залишок (різницю між вартістю
тарифного плану і станом рахунку) і покаже, скільки додаткових хвилин та
ГБ Ви зможете замовити на залишок.
Vodafone SuperNetStart – ціна 70 грн

 4 ГБ
 500 хвилин
 20 sms

Vodafone Family – ціна 45 грн
 500 Mб
 150 хвилин
 5 sms

Vodafone Device L– ціна 130 грн

 30 ГБ
 Безлімітна кількість хвилин
 50 sms

Додатково Ви можете замовити :
На 2 грн Ви можете замовити 1 хвилину
На 3 грн Ви можете замовити 100 МБ
Результат :

- Вивести назву тарифного плану з умовами тарифу
- Вивести залишок на рахунку
- Вивести кількість хв та МБ , які можна додатково купити

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

cwqfqeggqeg

22.11.2020 03:31

Написать программу на паскале для определения числа членов ряда,вошедших в сумму.исходные данные 0.62,точность вычисления 10^-4....

Джеси99

25.09.2022 01:53

Какие 3 основные системы информационных процессов?...

Grisha7089

20.10.2022 12:11

Как передавались данные между компьютерами до появления сети интернет?...

vika12325

25.02.2022 23:11

Задание 1: Войдите в редактор Word. Ознакомьтесь со стандартным окном редактора (строка главного меню и ее команды, панель инструментов и ее кнопки, служебные кнопки, функциональные...

Сырочег

14.06.2020 06:00

Напишите программу, вычисляющую периметр прямоугольника. Если ширина запрашивается у пользователя, а длина в 3 раза больше ширины.Для ширины введите целое число с пояснением....

BlackNeck730

02.07.2022 13:39

Краткий рассказ об умном доме...

SulikMur

27.12.2020 07:12

Питання №1 ? Як називається процес перекодування даних, з метою зменшення розмірів файлів? шифрування даних стиснення даних інсталяція даних дефрагментація даних Питання №2...

linochek278

23.07.2020 08:37

Файл размером 60 Мб передаётся через некоторое соединение с пропускной 4 Мбит/с. За сколько минут он будет передан?...

gulbakhar

18.03.2023 14:41

РЕФИРАТ ТЕМА:Интернет зависимость 6 класс...

pashasergo

08.06.2021 17:19

За яким алгоритмом створюють складні проекти ? Чому доцільно розбити складну задачу на підзадачі під час складання алгоритму її розв язання ? У якому випадку припиняють розбиття...

Ответ:

YanaKotsyuk

03.10.2021 23:05

Const
bd=['0'..'3'];
var
s,wa,wb,w:string;
c:char;
i,n:integer;
bad_a:boolean;
begin
WriteLn('Вводите фразу, разделяя слова ровно одним пробелом');
Read(s);
s:=s+' ';
n:=Length(s); wa:=''; wb:='';
i:=1; bad_a:=false; w:='';
while i<=n do begin
    repeat
      c:=s[i];
      if c<>' ' then begin
        bad_a:=bad_a or (c in bd);
        w:=w+c;
        Inc(i)
      end
      else begin
        if not bad_a then wa:=wa+' '+w;
        if s[i-1]='Я' then wb:=wb+' '+w;
        w:=''; bad_a:=false
      end
    until c=' ';
    Inc(i);
end;
wa:=Copy(wa,2,Length(wa)-1);
wb:=Copy(wb,2,Length(wb)-1);
Writeln(wa);
Writeln(wb)
end.

0,0(0 оценок)

Ответ:

rrr46

10.07.2022 04:54

Procedure z1();var a:array[1..50] of integer; i,k:integer;begin for i:=1 to 50 do begina[i]:= random(10)-1;write(a[i]:3);if a[i] =0 thenk:=k +1;end;writeln;write('количество нулей = ',k);end;procedure z2();var a:array[1..30] of integer; i:integer;p:double;begin p:=1;for i:=1 to 30 do begina[i]:= random(10)+1;write(a[i]:3);if (i>1) and (i <30)thenp:=p*a[i];end;writeln;write('произведение чисел = ',p);end;procedure z3();var a:array[1..40] of integer; i,k:integer;begin for i:=1 to 40 do begina[i]:= random(10)+1;write(a[i]:3);if i mod 3 =0 then k:=k + a[i];end;writeln;write('сумму чисел = ',k);end;begin z1();writeln;z2();writeln;z3();end.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку