maryariazantseva

02.01.2021

с информатикой . Составьте программу по заданию

Информатика

Ответить

Ответы

Natalya1895

02.01.2021

var

x, y: integer;

begin

Readln(x);

if x < -50 then

y := 7 * x * x;

if (x > -50) and (x < 50) then

y := Abs(3 * x)

else

y := x * x * x;

Writeln('y = ', y);

end.

Объяснение:

с информатикой . Составьте программу по заданию

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

Поделитесь своими знаниями, ответьте на вопрос:

с информатикой . Составьте программу по заданию

▲

с информатикой . Составьте программу по заданию

Ответы

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

Ваше имя (никнейм)*

Email*

Комментарий*

Популярные вопросы в разделе

Дано натуральное число. найти минимальную цифру и приписать её в начало и в конец числа

Почему ультразвуковой датчик иногда не может обнаружить объект?

Статья Кодирование информации в годы Великой Отечественной войны

Сколько символов содержит текст, записанный в 8-битном коде, информационный объём которого равен 0, 5 Кбайт?

Uses crt; var mas, a: array[1..10] of real; begin clrscr; mas[1]: =11; mas[5]: =32; mas[9]: =88; a[1]: =(mas[9]-mas[1])*mas[5]; write(a[1]: 5: 0); readkey; end.

Pascal abc 1.найти сумму всех четных чисел 2. вычисление кубов чисел от 25 до 125 (нужен код)

Нужно Сформировать вещественную матрицу 5х5. Вычислить произведение отрицательных элементов, находящихся над и под главной диагональю матрицы. Язык С++

Pascal abc Дана строка , сожержащая слова , разделённая пробелами. Вывести на экран строку , составленную из первых букв всех слов первоначальной строки.

Найти ошибки и исправить их Program Ex2; Uses CRT; Var Const A, B-integer; Rezult:byte Begin Write('Введите два числа: '); Reat(A, B); Rezult=A * B; Writeln('Отношение равно ' Rezult); End.

Опишите процессы преобразования звука при вводе в компьютер и при выводе

с информатикой . Составьте программу по заданию

Ответы

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

Ваше имя (никнейм)*

Email*

Комментарий*

Популярные вопросы в разделе

Дано натуральное число. найти минимальную цифру и приписать её в начало и в конец числа

Почему ультразвуковой датчик иногда не может обнаружить объект?

Статья Кодирование информации в годы Великой Отечественной войны

Сколько символов содержит текст, записанный в 8-битном коде, информационный объём которого равен 0, 5 Кбайт?​

Uses crt; var mas, a: array[1..10] of real; begin clrscr; mas[1]: =11; mas[5]: =32; mas[9]: =88; a[1]: =(mas[9]-mas[1])*mas[5]; write(a[1]: 5: 0); readkey; end.

Pascal abc 1.найти сумму всех четных чисел 2. вычисление кубов чисел от 25 до 125 (нужен код)

Нужно Сформировать вещественную матрицу 5х5. Вычислить произведение отрицательных элементов, находящихся над и под главной диагональю матрицы. Язык С++

Pascal abc Дана строка , сожержащая слова , разделённая пробелами. Вывести на экран строку , составленную из первых букв всех слов первоначальной строки.​​

Найти ошибки и исправить их Program Ex2; Uses CRT; Var Const A, B-integer; Rezult:byte Begin Write('Введите два числа: '); Reat(A, B); Rezult=A * B; Writeln('Отношение равно ' Rezult); End.

Опишите процессы преобразования звука при вводе в компьютер и при выводе

Сколько символов содержит текст, записанный в 8-битном коде, информационный объём которого равен 0, 5 Кбайт?

Pascal abc Дана строка , сожержащая слова , разделённая пробелами. Вывести на экран строку , составленную из первых букв всех слов первоначальной строки.