Question

даны 2 целых числа найти наименьшее из них. ввести число если не отриц. вычислить 30 прибавить к нему 70.ваести целое число и определить чеснок оно или нет

Answer 1

PROGRAM B05;
VAR
    a,b:integer;

BEGIN
  writeln('a). Введите два целых числа');
  write('Первое число: '); readln(a);
  write('Второе число: '); readln(b);
 
  if (a=b) then
    writeln('Числа равны.')
  else if (a<b) then
    writeln('Наименьшее число = ', a)
  else
    writeln('Наименьшее число = ', b);
  writeln('');

  write('б). Введите число: '); readln(a);
  if (a>0) then begin
    b:=a-30;
    writeln('Число неотрицательное. ', a,'-30=',b);
  end else if (a<0) then begin
    b:=a+70;
    writeln('Число отрицательное. ', a,'+70=',b);
  end else
    writeln('Число равно 0');
  writeln('');
 
  write('с). Введите целое число: '); readln(a);
  if odd(a) then
    writeln('Число ', a,' нечетное')
  else
    writeln('Число ', a,' четное');

END.