Энциклопедия!!!!!???????!!!
1.Запустите компьютер.
2.Подождите пока он полностью загрузится, и появится мышка.
3.Когда он запустился жмем комбинацию клавиш Crtl+Alt+Delete.
4.Откройте Деспечер Задач.
5.В появившемся приложении жмем Файл. :Выполнить:.
6.В нем набираем explorer.exe, и нажимаем Выполнить.
7.Ждем загрузки рабочего стола и радуемся жизни.
201 258 7DA Советую скачать двоичный калькулятор)
А) Калькулятором. Но можно посчитать самим на листочке это очень просто!!!
Var
i,d,n,k:integer;
begin
Write('Введите трехзначное натуральное число: ');
Read(n);
k:=0;
for i:=1 to 3 do begin
d:=n mod 10;
if d mod 3=0 then begin
Inc(k);
Write(d,' ')
end;
n:=n div 10
end;
if k>0 then Write('- цифры, кратные трем')
else Write('Таких цифр нет')
end.
Примеры
Введите трехзначное натуральное число: 569
9 6 - цифры, кратные трем
Введите трехзначное натуральное число: 184
Таких цифр нет
Замечание: в программе считается, что цифра 0 также кратна трем (как и всем другим числам), поскольку остаток от деления от нуля на 3 равен 0.
Если это не так, то замените условие
d mod 3 = 0
на
(d mod 3 = 0) and (d>0)