• 
  • 21 May 2012
  Английский язык
  • Автор:

  

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

• 
  • 21 May 2012
  • Ответ оставил: Kalimov1

  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.

   

  0
• 
  • 21 May 2012
  • Ответ оставил: UlyanaKerimova555

  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. 

  0
• 
  • НЕ НАШЛИ ОТВЕТ?

  Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: английский язык.
  На сегодняшний день (26.10.2024) наш сайт содержит 244792 вопросов, по теме: английский язык. Возможно среди них вы найдете подходящий ответ на свой вопрос.

  Найти другие ответы
• Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных

  Ответить на вопрос

Последние опубликованные вопросы