Составьте блок-схему и программу для проверки, является ли заданное с клавиатуры число полным квадратом натурального числа

подвержен воздействию шума, поэтому избыточность кода передачи
составляет 20%. Определите, за сколько времени по каналу будет передан
текст, информационный объём которого составляет 100 Кб.

Zi = (L, Ma, Mi, J, V, S, D);

Consum = array [Oras, Zi] of real;

var C : Consum;

r : Oras;

z : Zi;

Компонента C [r,z] переменной C представляет собой потребление электроэнергии города r в день z. Напишите программу, которая :

а)вычисляет количество электроэнергии, поторебляемой каждым городом за неделю;

б)вычисляет количество электроэнергии, потребляемой данными городами ежедневно;

в) вычисляет город с максимальным еженедельным потреблением электроэнергии;

г) определяет город с минимальным еженедельным потреблением электроэнергии;

д) определяет день, в который было потреблено наибольшее количество электроэнергии;

е) определяет деь с наименьшим потреблением электроэнергии.

1) Дано четырехзначное число. Верно ли, что среди его цифр есть кратные трем
2) Даны три целых числа. Вывести среднее значение числа (средним числом назовем то, которое меньше наибольшего, но больше наименьшего числа)
3) Напишите эффективную программ, которая по двум данным натуральным числам х и у, не превосходящим 10000, подсчитывает количество натуральных чисел, заканчивающихся нулем, на отрезке [х,у] (включая концы отрезка).

экран массивы. Найти разность сумм элементов массива.

их суммы и выведите результаты на экран. Если все числа отрицательны, то каждое сделайте равным наименьшему и выведите результаты. Иначе, К приравняйте к 10, а Л - к 15 и выведите результаты

y=4x^2+2(x^2+1) ; x=3