Program n1;
var
candy: integer;
begin
write('Введите количество конфет: ');
readln(candy);
if candy < 20 then writeln('Конфет не хватит')
else
if candy <= 40 then writeln('Конфет достаточно')<br> 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<br> 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 <br>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