zad
File Edit Search Run Compile Debug Tools Options Uindów Help
rli] ZAD_10.PAS 6=m
{zad 10> _
{kierownik-4000, zastepca-3000, specjalista-3000, stazysta-1500> uar
stanów i sko:str i ng; staż:integer; pensja:real; begin
writelnC poda j stanówisko(kierownik,zastępca,specjalista,stażysta)'); read1n(stanów i sko); writelnC Poda j staż pracy'); readln(staz);
if stanówisko='kierownik' then begin
pensja:=4000;
if staż>5 then pensja:=pensja+500; end;
if stanówisko='zastępca' then begin
pensja:=3000;
if staż>5 then pensja:=pensja+500; end;
if stanówisko='specjalista' then begin
pensja:=3000;
if staz>5 then pensja:=pensja+500; end;
if stanówisko='stażysta' then pensja:=1500; writelnCPensja wynosi', pensja:0:2); readln; end.
Wyszukiwarka
Podobne podstrony:
z komentarzem 3 bmp File Edit Search Run Compile Debug Tools Options Uindów Help .=[■]
zadanie5 2 bmp [ST TPX.EXE File Edit Search Run Compile Debug Tools Options Window Help^[■]
zadanie5 3 bmp [ST TPX.EXE File Edit Search Run Compile Debug Tools Options Window Help f=E«]
z komentarzem 5 2 bmp Bą tpx.exe File Edit Search Run Compile Debug Tools Options Mindow Help =[■]
C:FPC2.24ini386-win32fp.exe File Edit Śearch Run Compile Debug Tools Óptions Mindow Help for b:=l t
C:FPC2.2.4ini386-win32fp.exe File Edit Search Run Compile Debug Tools Options Windów Help =[■ ]^=
zadanie5 1 bmp Bą tpx.exeBSD File Edit Search Run Compile Debug Tools Options n=E" 1= DOCUME~1W
z komentarzem 5 3 bmp [ST TPX.EXE File Edit Search Run Compile Debug Tools Options Window Helpf=E«]
File Edit Searcłi Run Compile Debug Tools Options Window Help ■1-1 2=1T] n=[ ■
zad 9 DOSBox 0.74, Cpu speed: 3000 cycles, Frameskip 0, Program: TURBO File Edit Search Run Compile
zad 6 DOSBox 0.74, Cpu speed: 3000 cycles, Frameskip 0, Program: TURBO File Edit Search Run Cowpile
zad 4 DOSBox 0.74, Cpu speed: 3000 cycles, Frameskip 0, Program: TURBO File Edit S
12vcg10 ^Microsoft Visual C++ [run] - STARAE.EXE File Edit View Project Browse Debug Tools Options W
Bez tytułu(2) iloczyn - Microsoft Visual Studio File Edit View Project Build Debug Tools Test Window
031 ht4 File Ldit Search rUin Conpile Debug Project Options Window Help rrogram resex Co to cursor&n
031 ht9 Conpile File Edit Search Run FI Help I Show index for online Help Debug Project Options Wind
więcej podobnych podstron