Вопрос по информатике:
1 задача.Вычислить произведение квадратов n первых натуральных чисел.Для любого n введенного с клвитуры.2 Найти первое чётное натуральное числоЮ куб которого больше числа x,введенного с клавитуры. 3.Даны вещественные числа b1,b2,...... b10.(ввести с клавитуры).Определите среднее арифметическое тех из них,которые кратны числу n, введенному с клавитуры.
- 02.10.2016 11:54
- Информатика
- remove_red_eye 13632
- thumb_up 49
Ответы и объяснения 2
1)var s,i,n,a: integer;
begin
a:=1;
s:=1;
readln(n);
for i:=1 to n do
begin
s:=s*sqr(a);
a:=a+1;
end;
writeln(s);
end.
2)var a,i: integer;
x: real;
begin
a:=0;
readln(x);
repeat
a:=a+2;
if power(a,3)>x then writeln(a);
until power(a,3)>x;
end.
- 03.10.2016 05:49
- thumb_up 32
Pascal:
1) Диапазоны не указаны, но для школы обычно хватает типа "Integer".
var a, b, i:LongInt;/p>
begin
write('Введите число n=>'
- 04.10.2016 06:03
- thumb_up 44
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.