Program qq; var a, count2, count3: integer; begin writeln('введите число'); readln(a); count2: =0; count3: =0; while a> 0 do begin if a mod 10 = 2 then count2: =count2+1; if a mod 10 = 3 then count3: =count3+1; a: =a div 10; end; if count2> count3 then a: =count3 else if count3> count2 then a: =count2 else a: =count2; if a< > 0 then while a> 0 do begin writeln('выведено число 23'); a: =a-1; end else writeln('нельзя получить число 23 из цифр введённого числа'); end.
lihacheva
11.11.2022
Завдання запиши послідовність номерів карток, які порядок: варіант 1а) завершення роботи за комп'ютеромб) запуску програми на виконання варіант 2а) підготовки комп’ютера до роботиб) коректного завершення роботи з програмою завдання 3. дії з о б’єктам и робочого столуу комп’ютерному класі за комп’ютерами з різними номерами сидять світлана,марина,роман та сергій. відомо, що: - світлана виконала затримку над деяким об’єктом: - марина один раз клацнула лівою кнопкою миші; - роман не встиг нічого зробити; - сергій виконав дві дії з мишею.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Запишите следующее выражение по правилам записи формул в электронной таблице: а7-cos(2b1-2) --------------------- cos(6b2)+1