Question

Помогите пожалуйста сделать домашнюю работу

Answer 1

program n1;

var
  candy: integer;

begin
  write('Введите количество конфет: ');
  readln(candy);
  if candy < 20 then writeln('Конфет не хватит')
  else
  if candy <= 40 then writeln('Конфет достаточно')
  else writeln('Конфет даже много!');
end.

program n2;

var
  a, v: real;

begin
  write('Введите величину ребра куба: ');
  readln(a);
  writeln('Объем куба равен ', a * sqr(a));
end.

program n3;

var
  a: real;

begin
  write('Введите число a: ');
  readln(a);
  while a <= 100 do
  begin
    writeln('a=', a:3, '  ', 'кв.корень=', sqrt(a));
    a := a + 1
  end
end.

Пример вывода:
Введите число a: 63
a= 63  кв.корень=7.93725393319377
a= 64  кв.корень=8
a= 65  кв.корень=8.06225774829855
a= 66  кв.корень=8.12403840463596
a= 67  кв.корень=8.18535277187245
a= 68  кв.корень=8.24621125123532
a= 69  кв.корень=8.30662386291807
a= 70  кв.корень=8.36660026534076
a= 71  кв.корень=8.42614977317636
a= 72  кв.корень=8.48528137423857
a= 73  кв.корень=8.54400374531753
a= 74  кв.корень=8.60232526704263
a= 75  кв.корень=8.66025403784439
a= 76  кв.корень=8.71779788708135
a= 77  кв.корень=8.77496438739212
a= 78  кв.корень=8.83176086632785
a= 79  кв.корень=8.88819441731559
a= 80  кв.корень=8.94427190999916
a= 81  кв.корень=9
a= 82  кв.корень=9.05538513813742
a= 83  кв.корень=9.1104335791443
a= 84  кв.корень=9.16515138991168
a= 85  кв.корень=9.21954445729289
a= 86  кв.корень=9.2736184954957
a= 87  кв.корень=9.32737905308882
a= 88  кв.корень=9.38083151964686
a= 89  кв.корень=9.4339811320566
a= 90  кв.корень=9.48683298050514
a= 91  кв.корень=9.53939201416946
a= 92  кв.корень=9.59166304662544
a= 93  кв.корень=9.64365076099295
a= 94  кв.корень=9.69535971483266
a= 95  кв.корень=9.74679434480896
a= 96  кв.корень=9.79795897113271
a= 97  кв.корень=9.8488578017961
a= 98  кв.корень=9.89949493661167
a= 99  кв.корень=9.9498743710662
a=100  кв.корень=10

program n4;

var
  i,s: real;

begin
  s:=1; i:=1;
  while i < 20 do
  begin
    writeln('i=', i:2, ', s=',s:2);
    writeln('ln(i)=', ln(i):0:5, ', ln|s|=',ln(abs(s)):0:5);
    i:=I+4; s:=s-1;
  end
end.

Пример работы программы;

i= 1, s= 1
ln(i)=0.00000, ln|s|=0.00000
i= 5, s= 0
ln(i)=1.60944, ln|s|=-Infinity
i= 9, s=-1
ln(i)=2.19722, ln|s|=0.00000
i=13, s=-2
ln(i)=2.56495, ln|s|=0.69315
i=17, s=-3
ln(i)=2.83321, ln|s|=1.09861

program n5;

var
  x,s: real;

begin
  repeat
    write('Введите число x: ');
    readln(x);
    if x>0 then begin
      s:=10*x;
      writeln('x=', x:0:5, ', s=',s:0:4);
      end
  until x<=0
end.

Пример работы программы:

Введите число x: 35
x=35.00000, s=350.0000
Введите число x: 13
x=13.00000, s=130.0000
Введите число x: 4.456
x=4.45600, s=44.5600
Введите число x: -2