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 :)
" Life is not a problem to be solved but a reality to be experienced! "
© Copyright 2013 - 2024 KUDO.TIPS - All rights reserved.
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.