Они притворяются обычными программами. Они появляются, когда ты скачиваешь неизвестную программу с неизвестного источника.
//PascalABC.Net 3.0, сборка 1053
var
n: longint;
d, n1, n2: integer;
begin
n1 := 0; n2 := 0;
Write('Введите натуральное число: ');Read(n);
repeat
d := n mod 10;
if odd(d) then Inc(n1) else Inc(n2);
n := n div 10
until n = 0;
Write('Нечетных ', n1, ', четных ', n2)
end.
<em><u>Тестовое решение:</u></em>
Введите натуральное число: 3534052
Нечетных 4, четных 3
Початок -> Запускаемо компьютер -> втримуємо ЛКМ (Ліва клавіша Миші) ->
переводимо бажану програму/завдання в папку -> Повідомити результат ->
Кінець
Var ar:array[1..12] of integer;
ar2:array[1..12] of integer;
i,k:integer;
begin;
randomize;
writeln('Array:');
for i:=1 to 12 do
begin;
ar[i]:=random(30);
write(ar[i]:4);
if ar[i] mod 2=0 then
begin;
inc(k);
ar2[k]:=i;
end;
end;
writeln;
writeln('Final array:');
for i:=1 to k do
write(ar2[i]:4);
end.
Define ("pi",3.14);
По формуле через радиусы
$R = 10;
$rr = 4;
$RES = pi*(sqrt($R)-sqrt($rr));
echo "$RES";
По формуле через диаметры:
$D = 12;
$dd = 3;
$RES = ((pi/4)*(sqrt($D)-sqrt($dd)));
echo "$RES";