задачка 1 - Дано целое число . Если оно положительное, вывести

Задачка 1 - Дано целое число . Если оно положительное, вывести " Число положительное " , если отрицательное вывести "Число отрицательное " , если одинаково 0 - "Число равно нулю"
задачка 2 - дано целое число . Если число положительное, то вывести его на печать . по другому вывести " Данное число не является положительным ".
задачка 3- Даны два числа . Вывести сначала наименьшее . затем большее число.
задачка 4 - Даны два числа . Вывести порядковый номер наименьшего числа .
задачка 5 - Дано целое число . Если число положительное, то вывести его на печать . Если отрицательное, вывести число, умноженное на -1.
задача 6 - Найдите меньшее из 3-х заданных чисел

Задать свой вопрос
1 ответ
1.
var
a:integer;
begin
write('Введите целое число : ');
readln(a);
if agt;0 then
 writeln('Число - положительное ') else
writeln('Данное число не является положительным ');
if a=0 then
 writeln('Число одинаково нулю');
readln;
end.

2.
var
a:integer;
begin
write('Введите целое число : ');
readln(a);
if agt;0 then
 writeln('Число - положительное ') else
writeln('Данное число не является положительным ');
readln;
end.

3.
var
a,b:integer;
begin
write('Введите два числа : ');
readln(a,b);
if agt;b then
 writeln(a,10,b) else
writeln(b,10,a);
readln;
end.

4.
var
 a, b: integer;  
 begin
  writeln('Введите два числа');
  readln(a, b);  
  if a lt; b then writeln('Порядковый номер меньшего числа = 1');   
  if b lt; a then writeln('Порядковый номер меньшего числа = 2');
  if a = b then writeln('Числа одинаковы'); 
end.

5.
var
a:integer;
begin
write('Введите  число: ');
readln(a);
if agt;0 then
 writeln(a);
if alt;0 then
 writeln(a*-1);
readln;
end.

6.
var
 a,b,c,n:real;
begin
writeln('Введите три числа : ');
readln(a,b,c);
n:=a;
if blt;n then
 n:=b;
if clt;n then
 n:=c;
writeln('Меньшее из введённых чисел : ',n);
readln;
end.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт