Вопрос по информатике:
Найти сумму квадратов натуральных чисел от 15 до 25. Создать массив а из десяти целых чисел принадлежащих промежутку [0;25) Вывести полученный массив на экран. подсчитать k-количество элементов массива значение которых превышает 12 ПОМОГИТЕ СРОЧНО
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 24.11.2016 02:35
- Информатика
- remove_red_eye 13127
- thumb_up 33
Ответы и объяснения 1
Var
i, s: integer;
begin
s := 0;
for i := 15 to 25 do s := s + sqr(i);
Writeln('s=', s)
end.
Тестовое решение:
s=4510
***********************************
const
n = 10;
var
i, k: integer;
a: array[1..n] of integer;
begin
Randomize;
k := 0;
Write('Массив данных: ');
for i := 1 to n do
begin
a[i] := Random(26);
Write(a[i]:3);
if a[i] > 12 then k := k + 1
end;
Writeln(#13#10, 'k=', k)
end.
Тестовое решение:
Массив данных: 0 21 20 8 14 15 25 11 2 20
k=6
- 25.11.2016 08:41
- thumb_up 48
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.