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.
Завдання Запиши послідовність номерів карток, які задають порядок:Варіант 1а) завершення роботи за комп'ютеромб) запуску програми на виконання Варіант 2а) підготовки комп’ютера до роботиб) коректного завершення роботи з програмою Завдання 3. Дії з о б’єктам и Робочого столуУ комп’ютерному класі за комп’ютерами з різними номерами сидять Світлана,Марина,Роман та Сергій. Відомо, що:- Світлана виконала затримку над деяким об’єктом:- Марина один раз клацнула лівою кнопкою миші;- Роман не встиг нічого зробити;- Сергій виконав дві дії з мишею.
#include <iostream>
using namespace std;
int main()
{
setlocale(LC_ALL, "RUS");
int x;
cin >> x;
if (x % 4 == 0) {
cout << "Високосный";
}
else
{
cout << "Не високосный";
}
}