.Е.-Прокопьева
.Е.-Прокопьева
25.05.2023
?>

Запиши программу на языке Паскаль

Информатика
Ответить

Ответы

Koranna1986
Koranna1986
25.05.2023

Число, выведенное на экран 144

Объяснение:

var

 x, y: real;

begin

 Write('Введите значние x: '); ReadLn(x);

 if x <= 0 then y := 0 else if x > 1 then y := sqr(x) else y := x;

 WriteLn('y(', x, ') = ', y);

end.

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

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

Запиши программу на языке Паскаль
Ваше имя (никнейм)*
Email*
Комментарий*

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

s777tver109
Втаблице запросы к поисковому серверу. расположите обозначения запросов в порядке возрастания количества страниц, которые найдет поисковый сервер по каждому запросу. для обозначения логической опера...
Автор: s777tver109
pafanasiew
Теория алгоритмов с решением
Автор: pafanasiew
ludmila-malev280
Найти сумму всех элементов массива а, у которых число десятков (вторая с конца цифра десятичной записи) больше , чем число единиц.
Автор: ludmila-malev280
ismailovi670771
В записи алгоритма вычисления значения выражения (х2- 5х+5) / (х6- 4х2+3) Злоумышленник одно действие поставил не на свое место. Вот как стал выглядеть алгоритм: 1. ввести х 2. если х6- 4х2 + 3=0, ...
Автор: ismailovi670771
myglassi26
Почему современные пользовательские интерфейсы можно считать объектно- ориентированными?
Автор: myglassi26
NikonA83
Какие части программы являются обязательными в среде кумир? выберите несколько вариантов ответа: ключевое слово алг тело алгоритма ключевое слово кон надо ключевое слово нач дано название алгоритма...
Автор: NikonA83
bas7572513
Решить задачу: Найти сумму четных цифр числа (с цикла ДЛЯ) КуМир
Автор: bas7572513
Kochetova92
Переведите число 126 из десятичной системы счисления в двоичную систему счисления. сколько единиц содержит полученное число? в ответе укажите одно число — количество единиц.
Автор: Kochetova92
oldulo74
Что будет напечатано после выполнения программы? var k, S: integer; begin k := 10; S := 0; while k &lt; 120 do begin S := S + k; k := k + 5 end; write (s) end. Ниже дана программа. Получив на вход н...
Автор: oldulo74
mlubov1
Дано k наборов ненулевых целых чисел. признаком завершения каждого набора является число 0. для каждого набора вычислить среднее арифметическое его элементов. решить в с++
Автор: mlubov1
Глазкова633
Pascal. Eсли число чётное и положительное, то разделить его на 10, иначе вывести сообщение "число не удовлетворяет условию"​
Автор: Глазкова633
deputy810
Черно-белое (без градаций серого) графическое изображение имеет размер 21×21 точек. какой объём памяти займёт это изображение?
Автор: deputy810
simplexsol
Данные массивы целых чисел {ai} (i = 1, 2, ...), и {bj} (j = 1, 2, ..., ), а также целое число k. Если в массиве a нет ни одной элемента со значением k, то первый по порядку элемент массива, не ...
Автор: simplexsol
Александровна1742
1. Укажите правильные действия при завершении ввода данных в ячейку впрограмме MS Excel.А) -нажать клавишу &lt;Enter&gt;;B) -нажать клавішу «Shift»;C) -нажать клавішу &lt;Ctrl&gt;;D) -нажатъклавишу&lt...
Автор: Александровна1742
pechatlogo4
30 паскаль 10 класс получить квадратную матрицу порядка n* n.
Автор: pechatlogo4
▲