БІЛЕТ №3

БІЛЕТ №2

В

БІЛЕТ №1

program plp;

var

i,j:integer;

a:array [1..1000] of integer;

b:boolean;

k,n:integer;

begin

writeln('Ââåä³òü N');

readln(n);

k:=1;

i:=1;

while k<=n do begin

b:=true;

for j:=2 to i div 2 do

if (i mod j=0) then b:=false;

if (b) then

begin

a[k]:=i;

k:=k+1;

end;

i:=i+1;

end;

for i:=1 to n do

Write(a[i]:4);

Writeln;

readln;

end.

Б

Program Bred;

Const m=100;

Var

F:array [1..m] of integer;

i,n:integer;

Begin

F[1]:=1; F[2]:=1;

Readln (n);

for i:=3 to n do

F[i]:=F[i-1]+F[i-2];

for i:=1 to n do

Write (F[i]:3);

End.

uses crt;

var st:string;

n,a,b:integer;

begin

repeat

write('Введіть число від 0 до 9999 n = ');

readln(n);

until (n>=0)and(n<10000);

a:=n div 1000;

b:=n mod 1000;

case a of

1:st:='одна тисяча ';

2:st:='дві тисячі ';

3:st:='три тисячі ';

4:st:='чотире тисячі ';

5:st:='пять тисяч ';

6:st:='шість тисяч ';

7:st:='сім тисяч ';

8:st:='вісім тисяч ';

9:st:='девять тисяч ';

else st:='';

end;

case b div 100 of

1:st:=st+'сто ';

2:st:=st+'двісти ';

3:st:=st+'триста ';

4:st:=st+'чотириста ';

5:st:=st+'пятьсот ';

6:st:=st+'шістсот ';

7:st:=st+'сімсот ';

8:st:=st+'вісімсот ';

9:st:=st+'девятсот ';

end;

case b mod 100 div 10 of

2:st:=st+' двадцять';

3:st:=st+' тридцять';

4:st:=st+' сорок';

5:st:=st+' пятдесят';

6:st:=st+' шістдесят';

7:st:=st+' сімдесят';

8:st:=st+' вісімдесят';

9:st:=st+' девяносто';

end;

case b mod 100 of

10:st:=st+' десять';

11:st:=st+' одинадцять';

12:st:=st+' дванадцять';

13:st:=st+' тринадцять';

14:st:=st+' четирнадцять';

15:st:=st+' пятнадцять';

16:st:=st+' шістнадцять';

17:st:=st+' сімнадцять';

18:st:=st+' вісімнадцять';

19:st:=st+' девятнадцять';

else

case b mod 10 of

0:st:=st+' Нуль';

1:st:=st+' один';

2:st:=st+' два';

3:st:=st+' три';

4:st:=st+' чотири';

5:st:=st+' пять';

6:st:=st+' шість';

7:st:=st+' сім';

8:st:=st+' вісім';

9:st:=st+' девять';

end;

end;

writeln(st);

end.

Дата добавления: 2015-05-08