Иже в табличной форме представлен фрагмент базы данных о погоде.
Дата Температура (°С) Давление (мм рт. ст.) Ветер (м/с) Осадки
01.05.2010 17 754 9 нет
02.05.2010 16 752 11 нет
03.05.2010 14 749 15 нет
04.05.2010 14 747 17 дождь
05.05.2010 15 745 14 дождь
06.05.2010 13 750 13 дождь
07.05.2010 12 751 8 нет
08.05.2010 15 749 5 нет
Сколько записей в данном фрагменте удовлетворяют условию

1)
var k,i,n:integer;
begin
write('k = '); readln(k);
n:=0;
for i:=2 to round(sqrt(k)) do
  if k mod i= 0 then n:=n+1;
if n=0 then writeln(k,' - простое число')
else writeln(k,' - составное число');
end.

Пример:
k = 23
23 - простое число

2)
var a,b,i:integer;
function prost(n:integer):boolean;
var j,m:integer;
begin
m:=0;
for j:=2 to trunc(sqrt(n)) do
 if n mod j = 0 then inc(m);
prost:=m=0;
end;
begin
readln(a,b);
writeln('Простые числа:');
for i:=a to b do
 if prost(i) then write(i,' ');
end.

Пример:
10 30
Простые числа:
11 13 17 19 23 29

3)
var k,i,n:integer;
function prost(n:integer):boolean;
var j,m:integer;
begin
m:=0;
for j:=2 to trunc(sqrt(n)) do
 if n mod j = 0 then inc(m);
prost:=m=0;
end;
begin
readln(k);
i:=2; n:=0;
writeln('Простые числа:');
while n<k do
 begin
 if prost(i) then begin write(i,' '); n:=n+1; end;
 i:=i+1;
 end;
end.

Пример:
10
Простые числа:
2 3 5 7 11 13 17 19 23 29

Молодой человек, я конечно понял суть задания, но вот люди, которые написали выше явно нет. Что сложного в том, что бы написать, что нужно перевести числа из одних систем счисления, в другие? Итак начнем:

первая строка: 1001110 / 58 / 66 / 303 / 116 / 78

вторая строка: 11011011110111 / 51B1 / 8187 / 422241 / 33367 / 14071

третья строка: 101111101111110110 / 513b8 / 9521a / 22224244 / 22224244 / 195574

четвертая строка: 10111111110 / 7b8 / a7a / 22114 / 2776 / 1534

пятая строка: невозможно перевести (позже объясню)

Объяснение:

Суть систем счисления, что каждое число можно записать в системе счисления. Например в жизни мы используем 10ричную. Цифра может быть до 9 включительно. В пятой строке, в восьмеричной системе используется цифра 8, что не может быть из-за ограничения.

Объяснения почему именно такие цифры вы тут не увидите, ибо слишком много работы для )