3039682200

for b:=l to podana do begin a:=a+b; end;

writeln<'Suną liczb od 1 do',podana,' wynosi',a>; end;

function kwadraty<podana:integer):integer; var

wynik: integer; begin

for b:=l to podana do begin

a:=a+<b*b>; end;

writeln<'suną kwadratu liczb od 1 do',podana,'wynosi',a>; end;

function sześciany <podana:integer>:integer; begin

for b:=1 to podana do begin

a:=a+<b*b*b>; writeln<a>; end;

writelnC'suma sześcianu liczb',podana,'wynosi',a>; end;

begin

writeln<'podaj liczbę a wyświetlę sumę, kwadrat sześciany'>; readln<podana>; suma<podana>; kwadraty<podana>; szesciany<podana>; readln; end.

Wyszukiwarka

Podobne podstrony:
C:FPC2.2.4ini386-win32fp.exe File Edit Search Run Compile Debug Tools Options Windów Help =[■ ]^=
z komentarzem 5 2 bmp Bą tpx.exe File Edit Search Run Compile Debug Tools Options Mindow 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 3 bmp [ST TPX.EXE File Edit Search Run Compile Debug Tools Options Window Helpf=E«]
zad File Edit Search Run Compile Debug Tools Options Uindów Help rli]
z komentarzem 3 bmp File Edit Search Run Compile Debug Tools Options Uindów Help .=[■]
zadanie5 1 bmp Bą tpx.exeBSD File Edit Search Run Compile Debug Tools Options n=E" 1= DOCUME~1W
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
12vcg10 ^Microsoft Visual C++ [run] - STARAE.EXE File Edit View Project Browse Debug Tools Options W
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
031 ht4 File Ldit Search rUin Conpile Debug Project Options Window Help rrogram resex Co to cursor&n
Bez tytułu(2) iloczyn - Microsoft Visual Studio File Edit View Project Build Debug Tools Test Window

więcej podobnych podstron