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

25.05.2023

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

Информатика

Ответить

Ответы

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*

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

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

Протабулировать функцию на интервале [-п/2, п/2] с шагом п паскаль

Какая информация снижает эффективность принимаемых решений

Задача на кумире, во вложении задача

Напишите наибольшее целое число х, для которого истинно высказывание: НЕ (х >= 56) или (х < 14)

Напиши значення змінної S, якого вона набуде після виконання таких операторів: 1)s:=0; for i:=10 downto 6 dos:=s+1; 2)s:=0; for i:=8 to 3 do s:=s+1; 3)s:=1; for i:=2 downto 10 do s:=s+1; БУДЬ ЛАСКА, ...

Знайдіть суму всіх натуральних двохзначних чисел, які закінчуються на цифру это информатика паскаль

Что сделал билл гейтс для информатики? опишите кратко (буквально 2-3 предложения)

Файли, створені в Microsoft Excel, можна ідентифікувати за розширенням... :XLS, DBF, JPG, PDF?

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

Ответы

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

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

Email*

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

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

Протабулировать функцию на интервале [-п/2, п/2] с шагом п паскаль​

Какая информация снижает эффективность принимаемых решений

Задача на кумире, во вложении задача

Напишите наибольшее целое число х, для которого истинно высказывание: НЕ (х &gt;= 56) или (х &lt; 14)​

Напиши значення змінної S, якого вона набуде після виконання таких операторів: 1)s:=0; for i:=10 downto 6 dos:=s+1; 2)s:=0; for i:=8 to 3 do s:=s+1; 3)s:=1; for i:=2 downto 10 do s:=s+1; БУДЬ ЛАСКА, ...

Знайдіть суму всіх натуральних двохзначних чисел, які закінчуються на цифру это информатика паскаль​

Что сделал билл гейтс для информатики? опишите кратко (буквально 2-3 предложения)

Файли, створені в Microsoft Excel, можна ідентифікувати за розширенням... :XLS, DBF, JPG, PDF?​

Протабулировать функцию на интервале [-п/2, п/2] с шагом п паскаль

Напишите наибольшее целое число х, для которого истинно высказывание: НЕ (х >= 56) или (х < 14)

Знайдіть суму всіх натуральних двохзначних чисел, які закінчуються на цифру это информатика паскаль

Файли, створені в Microsoft Excel, можна ідентифікувати за розширенням... :XLS, DBF, JPG, PDF?