Pascal instrukcja if

Pascal funkcja if

Praktyczne wykorzystanie instrukcji if

program wybierz;
uses
crt;
var
a: byte;
begin
clrscr;
writeln('Podaj sumę liczb 2 i 5');
readln(a);
if a=7 then
begin
writeln('Brawo Dobrze ');
end
else
writeln('Niestety to nie ta liczba ');
readln;
end.

Praktyczne zastosowanie instrukcji else if

 program wybierz_else_if;
uses
crt;
var
a: byte;
begin
clrscr;
writeln('Podaj sumę liczb 2 i 5 lub 3 i 5');
readln(a);
if a=7 then
begin
writeln('Brawo Dobrze wynik 7 ');
end
else if a=8 then
begin
writeln('Brawo Dobrze wynik 8 ');
end
else
writeln('Niestety to nie ta liczba ');
readln;
end.

Używamy cookies i podobnych technologii m.in. w celach: świadczenia usług, reklamy, statystyk. Korzystanie z witryny bez zmiany ustawień Twojej przeglądarki oznacza, że będą one umieszczane w Twoim urządzeniu końcowym. Pamiętaj, że zawsze możesz zmienić te ustawienia. To find out more about the cookies we use and how to delete them, see our privacy policy.

I accept cookies from this site.

EU Cookie Directive Module Information