Y= {0 при x≤0 {x² при x> 0 запустить программу и выполнить при таких условиях: 1)при x= -2 ответ: 0 2)при x=2 ответ: 4 мне нужна программа,

202

467

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

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

lera956

Информатика

4,8(53 оценок)

Var x,y: real; begin write('x = '); readln(x); if x < = 0 then y: =0 else y: =x*x; writeln('y = ',y); end.

ооо322

Информатика

4,4(67 оценок)

Const n = 7; var a: array [1..n] of integer; i, m0, m1: integer; begin m0: =0; m1: =0; writeln('массив --> '); for i: = 1 to n do readln(a[i]); for i: = 1 to n do begin m0: =m0+a[i]; if a[i] mod 2 = 0 then m1: = m1+a[i]; end; writeln('cумма четных элементов массива: ',m1); writeln('cреднее арифметическое всех элементов массива: ',m0/n); end.