Задание 1. Преобразуйте текстовую информацию в табличную. Позвоночных животных делят на следующие группы: рыбы, земноводные, пресмыкающиеся, птицы и млекопитающие. Представители рыб: осетр, лосось, сельдь, камбала, акула, тунец, сом, лещ, щука, окунь и др. Рыбы живут в воде, их тело покрыто чешуёй, передвигаются при плавников, дышат с жабрами. Они питаются другими мелкими рыбами, насекомыми и личинками, а также планктоном. Земноводные (лягушки, жабы, тритоны) часть жизни живут на суше, часть в воде. Кожа у них голая и влажная. Безногие земноводные имеют удлинённое тело, конечности и хвост отсутствуют. Хвостатые земноводные имеют вытянутое тело, хвост хорошо развит, ноги обычно слабые и короткие. Бесхвостые земноводные имеют две пары конечностей, по земле передвигаются прыжками; в воде плавают. Питаются земноводные мелкими животными, насекомыми. Пресмыкающиеся (ящерицы, змеи, черепахи, крокодилы) обитают на суше и в воде. Их тело покрыто сухими чешуйками или панцирем. Питаются они в основном животной пищей (насекомыми, мелкими птицами, рыбами), а также растениями. Птицы (ласточка, ястреб, утка, голубь) имеют клюв, крылья и хвост. Их тело покрыто перьями. Обитают они на суше, почти все птицы летают. Питаются насекомыми, мелкими рыбами, грызунами, а также растениями. Млекопитающие (кит, тюлень, медведь, заяц, слон, тигр и др.) живут на суше или в воде. Тело их покрыто шерстью, кормят детенышей молоком. Хищники питаются другими мелкими и крупными животными, насекомыми, птицами, рыбой, грызунами, а травоядные – в основном растениями.
// Проверка, является ли число простым
var
p: integer;
found: boolean;
begin
found := (n mod 2 = 0);
p := 3;
while (not found) and (sqr(p) <= n) do
begin
found := (n mod p = 0);
p := p + 2
end;
IsPrime := (not found) or (p = 2)
end;
const
n = 20;
var
i, k: integer;
a: array[1..n] of integer;
begin
Write('Введите 20 целых чисел через пробел: ');
for i := 1 to n do
begin
Read(a[i]);
end;
k := 0;
for i := 1 to n do
if IsPrime(a[i]) then k := k + 1;
Writeln('Количество простых чисел- ', k)
end.
Тестовое решение:
Введите 20 целых чисел через пробел: 5 36 83 1673 339 73 34 14623 7 173 62 45 3463 326 28 934 345 24 4526 1143
Количество простых чисел- 6