М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
milana0512
milana0512
30.03.2021 08:07 •  Информатика

Составить программу, вычисляющую значение y, если: y = x в третьей -2x, если x больше или ровно1 2x-5, если x< 1

👇
Ответ:
Nekepeshy
Nekepeshy
30.03.2021
Var
  x, y: real;

begin
  Write('Введите х: ');
  Readln(x);
  if x < 1 then y := 2 * x - 5
  else y := x * x * x - 2 * x;
  Writeln('y=', y)
end.
4,5(94 оценок)
Открыть все ответы
Ответ:
LegoLAS09
LegoLAS09
30.03.2021

Решения на фото в приложении.


Объяснение выбора(2 задание):

Для правильного выбора нужно идти методом исключения.

Флеш накопитель - внешняя память, доступный объем памяти больше 4500, удобная транспортировка.

Диск - в наилучшем случаем это DVD, максимальный объем памяти которого не превышает 4400 мб, для хранения нашего файла - сойдет.

ОЗУ - оперативная память, которая ВРЕМЕННО хранит данные, хоть и объемы ОЗУ тоже внушающие, но она не подходит.

Жесткий диск - доступная память в разы превышает вес реферата, не комфортная транспортировка, долгое подключение, еще и требует доп. питания - не подходит.

Вывод: ответ - флеш накопитель, диск.

4,6(80 оценок)
Ответ:
emphasisone
emphasisone
30.03.2021
Var a:array[1..100,1..100] of integer; i,j,n,m,max,min:integer; begin write ('Введите количество строк: '); read(n); writeln; write ('Введите количество элементов в строке: '); read(m); writeln; writeln('Введите массив: '); for i:=1 to n do begin for j:=1 to m do begin write(' a[',i,',',j,']='); read(a[i,j]); end; writeln; end; writeln; writeln('Исходный массив: '); for i:=1 to n do begin for j:=1 to m do write(a[i,j],' '); writeln; end; writeln; writeln('Конечный массив: '); for i:=1 to n do begin min:=a[i,1]; max:=a[i,1]; for j:=2 to m do begin if (min>a[i,j]) then min:=a[i,j]; if (max
4,5(57 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ