Вот) Модуль нужен, чтобы упростить проверку)
var
x, i: integer;
begin
readln(x);
x := abs(x);
for i := 2 to x - 1 do
if x mod i = 0 then
begin
writeln('No');
exit;
end;
writeln('Yes');
end.
а в чем таблица дана?
например в Excel можно поставить фильтр.
а в СУБД так же можно отфильтровать либо прото фильтром, дибо запросом через фильтр.
DIM i AS INTEGER, s AS LONG
FOR i = 20 TO 40
s = s + i ^ 3
NEXT
PRINT "Сумма всех кубов от 20 до 40 = ";s
Вот в придложенном файле работающая программа, только я пока не догнал как ее коруглить, чтобы в ответе не было число + куча нолей в степени Е+00, а было просто числа например 2.5 или 3,7 или просто 5 или 7
1символ= 1 байт
1 байт = 8 бит
256 бит / 8 бит = 32 символа