Question

Proszę o pomoc?

Czy mógłby mi ktośrozwiązać zadania w devpascalu z programowania?

zad1) Napisz program,który rozpozna typ liczby wprowadzanej z klawiatury:
- dodatnia
- ujemna
- czy jest zerem

zad 2 ) Napisz program, który wczytuje liczbę całkowitą i sprawdza, czy jest to liczba parzysta większa od 5 (np. 66-> tak, 4 -nie), wypisze twoje imię i nazwisko

Answer 1

program zad1;

var

a:integer;

begin

writeln('Podaj Liczbę');

readln(a);

if a>0 then writeln('Liczba Dodatnia');

if a=0 then writeln('Liczba równa 0');

if a<0 then writeln ('Liczba jest ujemna');

readln;

end.

 

program zad2;

var

a,b:integer;

begin

writeln('Podaj Liczbe');

readln(a);

if (a mod 2) =0 then

      if a>5 then writeln ('Liczba jest parzysta i większa od 5');

writeln(' Liczba nie jest parzysta');

writeln('Imie nazwisko');

readln;

end.

 

Nie weim czy chodzi ci by wyświetlił tylko imię i nazwisko czy jak liczba jest parzysta i iwększa niż pięc to ma wyświetlić imię i nazwisko