Войти Регистрация Спроси ai-bota

Вычислить y=100/x, если x< 0; y=100*x, если x> =0, с программы паскаль

Показать ответ

Ответ:

Arhci43345

05.10.2020 21:17

Var
x,y:integer;
begin
writeln('Введите число');
readln(x);
if x<0 then
y:=100/x
else
y:=100*x;
writeln('Полученное число =', y);
end.

0,0(0 оценок)

Популярные вопросы: Информатика

marullens

14.02.2023 12:38

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

lizochkanaumov1

14.02.2023 12:38

Репетиционный экзамен в школе 105 человек. каждому из них выделяют специальный номер. идентифицирующий его в автоматической системе проверки ответов. при регистрации участника...

майнкрафтерчитак

14.02.2023 12:38

ответьте на вопросы, информатика 8 класс. 1.что такое база данных? 2.можно ли утверждать,что совокупность пустых таблиц является также базой данных? 3.что такое таблицы?...

Yascher

23.04.2020 21:25

Число 8110 переведите в двоичную систему счисления. Затем инвертируйте каждый бит и к получившемуся числу прибавьте 1. Потом повторите операции инвертирования и сложения....

LalkaZEKA

06.02.2021 02:51

Запрограммируй обратный отсчёт! Многие спортсмены жаловались, что судья слишком тихо отсчитывает секунды, оставшиеся до старта («Три!.. Два!.. Один!..»). Фирма Go Ahead купила...

rudnevskaya2004

07.05.2023 07:02

Напиши программу, назначающую диетические товары Пожелание: без сахара Предлагать диетические товары: True Некоторые покупатели предпочитают диетические сладости. К ним относятся...

viklap04

24.03.2023 13:50

Напишите функцию, которая определяет есть ли в переданной ей строке один из этих символов №, #, %, !, $, @, &, * Функция должна вернуть значение типа Bool МОЖЕТЕ ПИСАТ...

Sevchi

14.05.2021 09:19

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

Keks5478568

23.02.2023 13:36

Составить программу ( паскаль) для 5 целых чисел, найти максимальное из них p.s только с if then else (должно быть коротко...

Polina230407

18.01.2023 01:21

1.Что такое информация? 2.Перечислить свойства информации.3.Какие виды информации Вы знаете?4.Приведите примеры аналогового представления графической информации.5.Что такое...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку