помогите с информатикой!Составьте программки на Паскале:1)Вывести на экран первые 10

Помогите с информатикой!
Составьте программы на Паскале:
1)Вывести на экран 1-ые 10 членов последовательности,заданой формулой х(индекс n)=n^2-10.
к примеру при n=5 обязаны выйти числа -9,-6,-1,6,15.
2)Вычислить среднее арифметическое целых чисел из спектра от 6 до 50,кратных 3.
Можно написать как для 8 класса, пожалуйста

Задать свой вопрос
Лилия Знадетдинова
begin Range(1, 10).Select(x -> x * x - 10).Println;end.
Битюгов Валерий
begin Range(6, 50).Where(x -> x mod 3 = 0).Average.Println;end.
1 ответ

// 1)

begin

 var n := 1;

 var k := 10;

 while n lt;= k do

 begin

   Print(n * n - 10);

   n += 1

 end;

end.

// 2)

begin

 var n := 0;

 var Sum := 0;

 for var i:= 6 to 50 do

   if i mod 3 = 0 then

   begin

     n += 1;

     Sum += i

   end;

 Print(Sum/n)

end.

Никита Кутичев
громадное спасибо
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт