Question

Napisz program w Pascalu z użyciem dowolnych 10 zmiennych

Answer 1

program zmienne;

USES Crt;

var
a,b,c,d,e : Integer; {deklracja 4 zmiennych typu cakowitego}
f,g,h,i : real;  {deklracja 4 zmiennych typu rzeczywistego}
j, k : string; {deklracja 2 zmiennych lanuchowych }


begin
ClrScr;
writeln('Zadklarowalem 10 zmiennych! Hura!!!');

writeln('Podaj cztery dowolne liczby calkowite');
readln(a,b,c,d);
e := a + b + c + d;
writeln('Suma podanych liczb to: ', e);

writeln('Podaj cztery liczby rzeczywiste');
readln(f, g, h, i);
writeln('Podales cztery liczby reczywiste! Nic z nimi nie zrobie - nie chce mi sie ;-)');

writeln('Podaj dwa slowa, tym razem cos z nimi zrobimy! ;-)');
readln(i);


writeln('No nie przypuszczalem, ze jestes ', i);
writeln('Hohoh!');
ReadKey;
ReadKey;
end.