profile
Опубликовано 6 лет назад по предмету Информатика от Аккаунт удален

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

  1. Ответ
    Ответ дан sansanic

    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.

     

  2. Ответ
    Ответ дан Флайт

    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. 

Самые новые вопросы