[Pascal] Sprawdź, czy liczba jest dodatnia
[Pascal] Sprawdź, czy liczba jest dodatnia
Wczytaj liczbę całkowitą i sprawdź czy jest dodatnia, ujemna, czy równa 0
Ostatnio zmieniony 27 lis 2011, o 22:31 przez Afish, łącznie zmieniany 1 raz.
Powód: Staraj się lepiej dobierać nazwy tematów, tak by wskazywały o czym jest treść zadania.
Powód: Staraj się lepiej dobierać nazwy tematów, tak by wskazywały o czym jest treść zadania.
-
- Użytkownik
- Posty: 1272
- Rejestracja: 8 sty 2011, o 18:18
- Płeć: Mężczyzna
- Lokalizacja: Warszawa
- Podziękował: 295 razy
- Pomógł: 115 razy
[Pascal] Sprawdź, czy liczba jest dodatnia
Kod: Zaznacz cały
program TEST;
var a:integer;
begin
readln(a);
if a<0 then writeln('ujemna')
else if a>0 then writeln('dodatnia')
else writeln('zero');
end.