Задать вопрос
12 августа, 02:15

1 задача. Вычислить произведение квадратов n первых натуральных чисел. Для любого n введенного с клвитуры. 2 Найти первое чётное натуральное числоЮ куб которого больше числа x, введенного с клавитуры. 3. Даны вещественные числа b1, b2, ... b10. (ввести с клавитуры). Определите среднее арифметическое тех из них, которые кратны числу n, введенному с клавитуры.

+1
Ответы (2)
  1. 12 августа, 04:21
    0
    Pascal:

    1) Диапазоны не указаны, но для школы обычно хватает типа "Integer".

    var a, b, i:LongInt;

    begin

    write ('Введите число n=>') ;

    readln (a) ;

    b:=1;

    for i:=1 to a do

    b:=b * (i*i) ;

    write ('Произведение=', b, '.') ;

    readln end.
  2. 12 августа, 06:03
    0
    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.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «1 задача. Вычислить произведение квадратов n первых натуральных чисел. Для любого n введенного с клвитуры. 2 Найти первое чётное ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы