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. Дії з о б’єктам и Робочого столуУ комп’ютерному класі за комп’ютерами з різними номерами сидять Світлана,Марина,Роман та Сергій. Відомо, що:- Світлана виконала затримку над деяким об’єктом:- Марина один раз клацнула лівою кнопкою миші;- Роман не встиг нічого зробити;- Сергій виконав дві дії з мишею.
var a,b,c,d,s,n:integer;
begin
writeln('Введите 4-ехзначное число');
readln(n);
a:= n div 1000;
b:= n mod 100 div 10 ;
c:= n mod 10 ;
d:= n div 100 mod 10;
s:=a*b*c*d;
writeln(s);
end.