Одним із мобільних операторів було запроваджено акцію «Довше розмовляєш – менше платиш» з такими умовами: плата за з'єднання відсутня; за першу хвилину розмови абонент сплачує X копійок, а за кожну наступну хвилину розмови – на 5 копійок менше, ніж за попередню; умови дійсні для дзвінків абонентам усіх мобільних операторів країни. Скільки хвилин за умовами акції може тривати розмова абонента цього мобільного оператора, якщо на його рахунку Y грн?

public class prosto {

public static void main(String[] args) throws IOException {

// TODO Auto-generated method stub

System.out.println("Программа определения простого числа");

System.out.println("");

int n, s=0, i=2;

System.out.println("Введите натуральное число (>0)>");

Scanner scan = new Scanner(System.in);

n = scan.nextInt();

if (n==1) System.out.println(n+" - число не просто и не составное");

else

{

while (i*i <= n) {

if (n % i == 0) ++s;

++i;

}

if (s == 0) System.out.println(n+" - простое число!");

else System.out.println(n + " - составное число!");

}

System.out.println(i-2+" - итераций");

System.out.print("Нажмите ENTER для выхода...");

System.in.read(); //задержка (аналог system("PAUSE") в C++)

scan.close();

}

}

1) Пароль в этом коде - "zn4n1j4". Заменить при необходимости.

var

 i: integer;

 s: string;

begin

 i := 1;

 while i <= 5 do

 begin

   readln(s);

   if s = 'zn4n1j4' then

   begin

     writeln('Вход в систему разрешен');

     exit;

   end;

   writeln('Неверный пароль.');

 end;

 writeln('Пароль не был угадан 5 раз.');

end.

2) Используем операцию x mod 10 для получения последней цифры числа и x div 10 для "отбрасывания" последней цифры числа.

var

 x, ans: integer;

begin

 read(x);

 ans := 0;

 while x <> 0 do

 begin

   ans := ans + (x mod 10);

   x := x div 10;

 end;

 writeln(ans);

end.