Question

napiszcie mi najprostszy program w borland pascal 7.0 tylko ma dzialać!!!!!!!! Nie kopiowac z wikipedii bo ten nie dziala na 7.0! jak nie bedzie dzialal to zglaszam spam! prosze szybko :)

albo link gdzie jest duzo programow na ten kompilator

Answer 1

PROGRAM Mnozenie;

USES Crt;

VAR

a, b : Integer;

c : Byte;

{Poczatek procedury}

PROCEDURE Mnoz;

BEGIN

ClrScr;

WriteLn('PROGRAM MNOZENIE');

WriteLn('Podaj pierwszą liczbę : ');

ReadLn(a);

WrtieLn('Podaj drugą liczbę : ');

ReadLn(b);

WriteLn(Wynki to : ,a*b);

ReadLn;

END;

{Koniec procedury}

BEGIN

Mnoz;

WriteLn('Jeszcze raz ? 1 - tak , 0 - nie');

ReadLn(c);

IF c = 1 THEN Mnoz

ELSE

Halt;

END.