Регистрация
svredinova98
04.06.2022 11:34
Информатика
Есть ответ 👍

Составьте программу на языке паскаль для вычесления y по формуле : y=1-2x=3x^2-4x^3 , где x - натуральное число

292
436
Посмотреть ответы 2

Ответы на вопрос:

natali29111978
natali29111978
4,5(43 оценок)
Program program1; var x, y: integer; begin write('введите x: '); readln(x); y : = 1 - 2 * x - 3 * sqr(x) - 4 * power(x, 3); writeln('y = ', y); end.
elitael
elitael
4,7(67 оценок)

ответ:

var a: array [1..10] of integer;

i,j: integer;

begin

  j: =1;

  for i: =1 to 10 do a[i]: =random(10);

  writeln ('массив: ');

  writeln (a);

  for i: =1 to 10 do

  if (a[i] mod 2=0) and (a[i]< > 0)   then j: =j*a[i];

  a[10]: =j;

  writeln ('ответ: ');

  writeln (a);

end.

Популярно: Информатика