(10012+41001216)*740=30348308720
Var n,i: integer;
begin
write('Введите целое число = ');
readln(n);
i:=2;
while (n mod i <> 0) do i:=i+1;
if i=n then writeln('Число ',n,' простое')
else writeln('Число ',n,' не простое');
<span>end.</span>
По моему она делется на:
Системное программное обеспечение
Прикладное программное обеспечение
Инструментальное программное обеспечение
Вместо Х там должно быть 2