Реферат: Программирование. Контрольная работа

Контрольная работа

Составьте программу, определяющую является ли вводимое с клавиатуры целое число

положительным или отрицательным.

Текст программы:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type

TForm1 = class(TForm)

private

public

end;

var

Form1: TForm1;

x: longint;

implementation

label start,fin;

begin

start:

write('Vvedite celoe chislo =');

readln(x);

if x>0 then begin

writeln('Dannoe chislo >0');goto fin; end;

if x<0 then begin

writeln('Dannoe chislo <0');goto fin; end;

if x=0 then writeln('Dannoe chislo =0');

fin:end.

Задание №2

--> ЧИТАТЬ ПОЛНОСТЬЮ <--