Лабораторна работа по порограммированию. Вариант 22

Вариант 2 Задача 1

var k : integer; c : array[1..n, 1..m] of char; Определить k — количество различных элементов массива c (т.е. повторяющиеся элементы считать один раз).

Указание: для хранения счетчиков для всех символов использовать массив типа array[char] of integer.

Задача 2

В возрастающем порядке напечатать все целые числа из диапазона 1..255, представимые в виде n2 + m2 , где m, n ≥ 0.

Указание. Для решения задачи используйте множества.