Меню сайта

Задача №25

Написатьалгоритм вычисления чисел.

uses crt-

var x:real-

begin-

clrscr-

writeln(‘Введите число’)-

readln(x)-

IF x &gt- 0 THENwriteln(‘положительное число’)-

if x &lt- 0 thenwriteln(‘отрицательное число’)-

if x=0 thenwriteln(‘0 = 0’)-

end.

Категория: Разветвляющиеся программы | Дата: 05.01.13

Меню раздела
Блок