Размер шрифта
A- A+
Межбуквенное растояние
Стандартное Среднее Большое
Цвет сайта
A A A A
Изоображения
Выкл Цвет ч/б
Дополнительно
Закрыть

Урок5 - аналогичная задача

     Пример . Дано целое число. Если оно положительное, то уменьшить его в 2 раза и вывести на экран результат.

Решение:

program chislo;
  var x:integer; r:real;
begin
  write('x=');readln(x);
  if x > 0
   then
    begin
      r:=x/2;
      writeln('r=',r);                                
    end;
  end.

Разделы сайта