24.03.2012, 21:15
próbuje zrobić(wg. instrukcji ze strony TP) program który prosi o podanie jakiejś liczby a kiedy napisze się ją to pyta ile jest ta liczba x2. jak napiszesz poprawnie, to pisze brawo, jak nie to pyta czy umiem mnożyć. w instrukcji był kod:
No i próbuję to w praktyce, ale jak wpisuje wynik działania(wybrana liczba x2) to program się zamyka. Coś robię źle?
Kod:
USES CRT;
VAR
liczba1,liczba2:longint;
BEGIN
clrscr;
writeln('Wprowadź jakąś liczbę');
read(liczba1);
writeln('A teraz podaj ile to jest: pierwsza liczba pomnożona przez dwa?');
read(liczba2);
IF liczba1*2=liczba2 THEN writeln('Brawo! Umiesz mnożyć!!!');
IF liczba1*2<>liczba2 THEN writeln('Co ty? Mnożyć nie umiesz?');
readln;
END.
No i próbuję to w praktyce, ale jak wpisuje wynik działania(wybrana liczba x2) to program się zamyka. Coś robię źle?