evada2

05.12.2021

создать программу , которая будет определять или заданное число x будет положительным , отрицательным или нулём

Информатика

Ответить

Ответы

filimon131262

05.12.2021

var a: real;

begin

Read(a);

if a<0 then Write('число отрицательное')

else if a=0 then Write('число равно нулю')

else Write('число положительное');

end.

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

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

создать программу , которая будет определять или заданное число x будет положительным , отрицательным или нулём

▲

создать программу , которая будет определять или заданное число x будет положительным , отрицательным или нулём

Ответы

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

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

Email*

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

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

Окаких носителях информации идет ( надо расшифровать слова ) искд амнкеь аскстеа акжкин секдиат агубам лфеш

Turbo pascal. путем копирования и склейки из слова 'путеводитель' получить слова: водитель, путь, дело, дети.

Средства, реализующие метод защиты информации "побуждение". 1) программные 2) технические 3) морально-этические 4) организационные 5) законодательные

Дана программа: Program Primer; Var N, result : real; Begin Writeln('Введите значения переменной N'); Write('N='); Readln(N); Result := sqr((3+N)3); Writeln ('sqr((3+N)3)', result:8:0); Readln; End...

с информатикой нужно зделать задание на фото и ещё можно ответы на вопросы. Вопросы будут на 2 фото

с: Найдите значение переменной x после выполнения фрагмента программы: var x:integer; begin x:=2; x:=2*x-5; x:=x+10; Write(x); end. а) 13; б) 9; в) 5; г)11.

Напишите программу, которая заполняет массив из 10 элементов случайными числами на отрезке {-2, 2} и находит произведение ненулевых элементов.

Дано натуральное число n. вычислить s=1/sin1+1/sin2++1/sinn. надо написать на паскале

Написати команду, яка встановлює для кнопки ширину 150 пікселів

Напишите программу определения простого числа в паскале

создать программу , которая будет определять или заданное число x будет положительным , отрицательным или нулём​

Ответы

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

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

Email*

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

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

Окаких носителях информации идет ( надо расшифровать слова ) искд амнкеь аскстеа акжкин секдиат агубам лфеш

Turbo pascal. путем копирования и склейки из слова 'путеводитель' получить слова: водитель, путь, дело, дети.

Средства, реализующие метод защиты информации "побуждение". 1) программные 2) технические 3) морально-этические 4) организационные 5) законодательные

Дана программа: Program Primer; Var N, result : real; Begin Writeln('Введите значения переменной N'); Write('N='); Readln(N); Result := sqr((3+N)*3); Writeln ('sqr((3+N)*3)', result:8:0); Readln; End...

с информатикой нужно зделать задание на фото и ещё можно ответы на вопросы. Вопросы будут на 2 фото

с: Найдите значение переменной x после выполнения фрагмента программы: var x:integer; begin x:=2; x:=2*x-5; x:=x+10; Write(x); end. а) 13; б) 9; в) 5; г)11.

Напишите программу, которая заполняет массив из 10 элементов случайными числами на отрезке {-2, 2} и находит произведение ненулевых элементов.

Дано натуральное число n. вычислить s=1/sin1+1/sin2++1/sinn. надо написать на паскале

Написати команду, яка встановлює для кнопки ширину 150 пікселів

Напишите программу определения простого числа в паскале

создать программу , которая будет определять или заданное число x будет положительным , отрицательным или нулём

Дана программа: Program Primer; Var N, result : real; Begin Writeln('Введите значения переменной N'); Write('N='); Readln(N); Result := sqr((3+N)3); Writeln ('sqr((3+N)3)', result:8:0); Readln; End...