Есть ответ 👍

Составить программы 50 БАЛЛОВ
Решение заданий ЕГЭ К3
1)Назовём натуральное пятизначное число N (10000<= N <= 99999) счастливым, если суммы двух его первых и двух последних цифр различаются не более, чем на 2. Найдите количество таких чисел.
2)Назовём натуральное число N (1000(8 степень) <= N <= 7777(8 степень)) счастливым, если суммы двух первых и двух последних цифр его восьмеричной записи равны. Найдите количество таких чисел.

169
419
Посмотреть ответы 1

Ответы на вопрос:


Как-то так: program z; var n, m: byte; begin write('n = '); readln(n); m: =1; while sqr(m)> =n do m: =m+1; writeln('m = ', m); end. 4-2: program d; var i,n,k,a: integer; begin write('n = '); readln(n); k: =0; for i: =1 to n do begin readln(a); if a > 0 then k: =k+1; end; wreteln('k = ', k: 0: 2); end. 4-3: program w; var max, a: integer; n: longint; begin write('n = '); readln(n); max: =10; while n < > 0 do begin a: =n mod 10; if a > max then max: =a; n: =n mod 10; end; readln(max); end.

Популярно: Информатика