Контрольная работа
Составьте программу, определяющую является ли вводимое с клавиатуры целое число
положительным или отрицательным.
Текст программы:
unit Unit1;
Возможно вы искали - Реферат: Web-Дизайн и программы для создания web-страниц
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
TForm1 = class(TForm)
Похожий материал - Реферат: HTML-документы
private
public
end;
var
Form1: TForm1;
Очень интересно - Реферат: Программирование на Shell
x: longint;
implementation
label start,fin;
begin
start:
Вам будет интересно - Реферат: Sportster Voice 28.8 Инсталляция Проблемы и решения
write('Vvedite celoe chislo =');
readln(x);
if x>0 then begin
writeln('Dannoe chislo >0');goto fin; end;
if x<0 then begin
Похожий материал - Реферат: Создание баз данных в Microsoft Access
writeln('Dannoe chislo <0');goto fin; end;
if x=0 then writeln('Dannoe chislo =0');
fin:end.
Задание №2