Среди предложенных множеств укажите бесконечные множества •Множество букв английского алфавита
•Множество целых трёхзначных чисел
•Множество деревьев в загородном лесу
•Множество нечётных положительных чисел
•Множество чисел, кратных 13

Множество букв английского алфавита (26 элементов)

Множество целых трёхзначных чисел(INF элементов)

Множество деревьев в загородном лесу(можно посчитать и узнать)

Множество нечётных положительных чисел(INF)

Множество чисел, кратных 13(INF)

program pyat;

var a, b, c, d ,f, p : integer;

begin

writeln ('vvedite dlini storon pyatiugolnika');

readln (a);

readln (b);

readln (c);

readln (d);

readln (f);

p: = a+b+c+d+f;

writeln ('perimetr raven', p);

readln;

end.

паскаль

откомпилирован: (pascal abc)

program z1; uses crt; var    n: integer;     i: integer; begin      write(' введите n :   ');       readln(n);             for i : = 1 to n do      begin                writeln(' число: ',i,' степень: ', i *i);       end; end.

си

откомпилирован: (dev cpp)

#include < stdio.h> #include < stdlib.h> #include < conio.h> #include < math.h> int main(){  int n = 0;     printf("\n vvedite n:   ");   scanf("%d", & n);   printf("\n chislo | stepen");   for(int i = 1; i < n; i++)  {                printf("\n %5d  |%5d ", i, i * i);   }  getch( );   return 0; }