3Аданиe 51

VAR i, ball. N, S : Integer;

BEGIN

WriteLn('Введите количество учеников');

ReadLn (N);

S:=0;

for i:=1 to N do begin

WriteLn('Введите балл ученика');

ReadLn (ball);

S:=S+ball;

end;

WriteLn('Cpeдний балл =',S/N:8:3);

ReadLn

END.

3Адание 5 2

VAR i, N :Integer;

a, proizvedenie :Real;

BEGIN

WriteLn('Bвeдитe кoличecтвo сомножителей');

ReadLn (N);

proizvedenie:=1; {Сумму обнуляем, произведение – нет!}

for i:=1 to N do begin

WriteLn(Введите сомножитель');

ReadLn (a);

proizvedenie := proizvedenie * а; {Наращиваем произведение}

end;

WriteLn('Пероизведение =',proizvedenie :12:3);

ReadLn

END.

Задание 53

VAR perv, vtor: Integer; {первая и вторая цифры}

BEGIN

for perv:=3 to 8 do for vtor:=0 to 7 do Write(perv,vtor, '');

ReadLn.

END.

Задание 54

VAR i,j,k,l: Integer; {четыре цифры}

BEGIN

For i:=1 to 3 do

For j:=1 to 3 do

For k:=1 to 3 do

For l:=1 to 3 do

Write(i,j,k,l,'');

ReadLn

END.

Задание 55

VAR i,j,k,l, с : Integer; {с-счетчик}

BEGIN

с:=0; {Обнуляем счетчик}

for i:=1 to 3 do for j:=1 to 3 do for k:=1 to 3 do for l:=1 to 3 do c:=c+1;

Write('Количество сочетаний =', с);

ReadLn

END.

Задание 56

VAR i,j,k,l, с : Integer; {с - счетчик}

BEGIN

c:=0; {Обнуляем счетчик}

for i:=1 to 3 do

for j:=1 to 3 do

for k:=1 to 3 do

for l:=1 to 3 do

if (i<=j) AND (j<=k) AND (k<=l) then c:=c+1;

WriteLn('Количество неубывающих сочетаний =', с);

ReadLn

END.

Задание 57

VAR i,N, c'hislo, min, nomer :Integer;

BEGIN

WriteLn('Введите количество чисел');

ReadLn(N); {N - количество чисел}

ReadLn(min); {первое число считаем минимальным}

nomer:=1; {его номер - первый}

for i:=2 to N do begin {Просматриваем остальные числа}

ReadLn(chislo);

if chislo<min then begin {Если число меньше минимального, то}

min:=chislo; {оно становится минимальным}

nomer:=i; {запоминаем номер минимального числа}

end {if};

end {for};

WriteLn(min,' '.nomer);

ReadLn

END.

Задание 58

VAR i,N, rost, min, max :Integer;

BEGIN

WriteLn('Сколько человек в классе?');

ReadLn(N);

max:=0; {Ясно, что роста меньше 0 см не бывает}

min:=500; {Ясно, что роста больше 500 см не бывает}

for i:=1 to N do begin {Просматриваем все числа}

WriteLn('Введите рост ученика');

ReadLn(rost);

if rost<min then min:=rost;

if rost>max then max:=rost

end {for};

if max-min>40 then WrifeLn('Правда') else WriteLn('Henpaвда');

ReadLn

END.

Задание 60

USES CRT;

VAR hz, i :Integer;

BEGIN

for i:=1 to 3 do begin {Повторить три раза звук сирены}

hz:=60;

while hz<800 do begin {Звук вверх}

Sound(hz); Delay(50);

hz:=hz+5

end;

while hz>60 do begin {Звук вниз}

Sbund(hz); Delay(50);

hz:=hz-5

end;

end {for};

NoSound

END.

Задание 61

USES CRT;

VAR hz, i :Integer;

BEGIN

for i:=1 to 30 do begin

Sound(60);

Delay(50);

Sound(400);

Delay(50);

end {for};

NoSound

END.

Задание 62

USES CRT;

VAR hz: Integer;

BEGIN

hz:=1000;

while hz<20000 do begin

WriteLn('Частота звука -', hz,' герц. Жмите кл.ввода до 20000 Гц');

Sound(hz);

ReadLn;

hz:=hz+500

end;

NoSound

END.

Задание 64

USES CRT;

PROCEDURE doo; BEGIN Sound(523); Delay(500); NoSound; Delay(20) END;

PROCEDURE re; BEGIN Sound(587); Delay(SOO); NoSound; Delay(20) END;

PROCEDURE mi; BEGIN Sound(659); Delay(500); NoSound; Delay(20) END;

PROCEDURE fa; BEGIN Sound(698); Delay(500); NoSound; Delay(20) END;

PROCEDURE sol; BEGIN Sound(784); Delay(SOO); NoSound; Delay(20) END;

PROCEDURE la; BEGIN Sound(880); Delay(SOO); NoSound; Delay(20) END;

PROCEDURE si; BEGIN Sound(988); Delay(SOO); NoSound; Delay(20) END;

{500 - продолжительность звука, 20 - пауза между нотами}

BEGIN

mi; doo; mi; doo; fa; mi; re; sol; sol; la; si; doo; doo; doo

END.

Задание 65

USES CRT; ,

PROCEDURE doo; BEGIN Sound(523); Delay(SOO); NoSound; Delay(20) END;

PROCEDURE re; BEGIN Sound(587); Delay(SOO); NoSound; Delay(20) END;

PROCEDURE mi; BEGIN Sound(659); Delay(SOO); NoSound; Delay(20) END;

PROCEDURE fa; BEGIN Sound(698); Delay(500); NoSound; Delay(20) END;

PROCEDURE sol; BEGIN Sound(784); Delay(SOO); NoSound; Delay(20) END;

PROCEDURE la; BEGIN Sound(880); Delay(SOO); NoSound; Delay(20) END;

PROCEDURE si; BEGIN Sound(988); Delay(SOO); NoSound; Delay(20) END;

PROCEDURE chijik;

BEGIN

mi; doo; mi; doo; fa; mi; re; sol; sol; la; si; doo; doo; doo

END;

BEGIN

WriteLn('Песня "Чижик-пыжик". 1 куплет1');

chijik;

WriteLn('2 куплет');

chijik;

END.

Задание 66

Я, король Франции, спрашиваю вас - кто вы такие? Вот ты - кто такой? Я - Атос

А ты, толстяк, кто такой?

А я Портос! Я правильно говорю, Арамис?

Это так же верно.как то.что я - Арамис!

Он не врет, ваше величество! Я Портос, а он Арамис.

А ты что отмалчиваешься, усатый?

А я все думаю, ваше величество - куда девались подвески королевы?

Анна! Иди-ка сюда!!!

Задание 67

USES Graph;

VAR Device, Mode: Integer;

BEGIN

Device:=0;

InitGraph(Device, Mode, 'c:\tp\bgi');

Rectangle(300,30,360,80); {шапка}

Circle(330,120,40); {голова}

Circle(345,110,5); {глаз}

Circle(315,110,5); {глаз}

Line(320,140,340,140); {pom}

Line(330,120,330,130); {нoc}

Line(330,120,305,130); {нoc}

Line(330,130,305,130); {нoc}

Circle(330,220,60); {середина}

Circle(330,360,80); {низ}

Rectangle(350,163,455,183); {рука}

Rectangle(203,163,308,183); {рука}

Line(210,130,210,440); {посох}

ReadLn;

CloseGraph

END.

Задание 68

USES Graph;

VAR Device, Mode :Integer;

BEGIN

Device:=0;

InitGraph(Device, Mode, 'c:\tp\bgi');

Rectangle(300,30,360,80); {шапка}

SetFillStyle(1, yellow); {заливка}

FloodFill(330,50, white); {шапки}

Circle(330,120,40); {голова}

Circle(345,110,5); {глаз}

Circle(315,110,5); {глаз}

SetColor(red);

Line(320,140,340,140); {pom}

SetColor(white);

Line(330,120,330,130); {нос}

Line(330,120,305,130); {нос}

Line(330,130,305,130); {нос}

SetFillStyle(1, red); {заливка}

FloodFill(328,125, white); {носа}

Circle(330,220,60); {середина}

Circle(330,360,80); {низ}

Rectangle(350,163,455,183); {рука}

Rectangle(203,163,308,183); {рука}

SetLineStyle(0, 0, ThickWidth);

SetColor(blue);

Line(210,130,210,440); {посох}

WriteLn('3TO снеговик');

ReadLn;

CloseGraph

END.

Задание 69

x:=x+4;

Задание 70

x:=40;

repeat

Circle(x,100,10);

x:=x+4;

until x>600;

Задание 71

Circle(x, 100,40);