с двумя проблемами 1) поставила цикл while включительно до 2, но он считает только до 1,9
2) поставила условие, чтобы при 1,3 выводилось число а, но он выводит число, которое получается при использовании десятичного логарифма
Программа
program Task3;
var x,a,y:real;
begin
a:=0.5;
x:=0.8;
while x<=2 do
begin
if x<>1.3 then
if x<1.3 then
y:=pi*x-(7/power(x,2))
else
y:=(ln(x+7*power(x,0.5)))/ln(10)
else
y:=a;
writeln(x,' ',y);
x:=x+0.1;
end;
end.

Мини-сочинение на тему: «Мои друзья»

План:

1.Смысл дружбы.

2.Моя история знакомства с друзьями.

3.Классные друзья.

4.Самое лучшее лето в моей жизни.

5.День Рождения мечты.

6.Самое главное в жизни –это дружба.

Можно ли прожить без дружбы? Я уверенно заявляю, конечно же, нет. Без дружбы жизнь была бы скучной и бессмысленной, ведь именно она жить, а не существовать. Именно из-за этого я выбрал эту тему для сочинения, потому что у меня интересная история из жизни, как я нашел лучших друзей.

С ними я познакомился в 1 классе, мы дружим уже больше семи лет! С момента знакомства мы сдружились очень хорошо, никто не думал, что обычное знакомство приведет к такой длинной дружбе!

В начальной школе мы в основном играли в салки и другие подвижные игры вместе, а уже в средней школе мы друг другу с уроками, тестами, гуляли вместе и играли в компьютерные игры.

Начиная с третьего класса, я первый раз пошел играть в футбол с одним из моих лучших друзей, но может возникнуть вопрос: «Почему именно в третьем классе?» Дело в том, что все детство я не ходил в садик и проводил время один или с родственниками, но без друзей. Когда я пошел в школу, я получил то, чего очень давно желал– общения с ровесниками.

Два лета подряд мы ездили по всему городу на велосипедах, проводя на улице по 5-6 часов. Это было очень веселое времяпровождение, которое я никогда не забуду! Также мы часто встречались все вместе и играли в компьютерные игры. Мы даже создали собственную мини-команду! За все проведенное время вместе я понял, что мы прекрасная команда. Даже простая игра смогла показать, что мы идеально друг друга понимаем.

В сентябре я пригласил всех своих друзей на мой День Рождения. Ребята подарили мне настольную игру, о которой я давно мечтал. Мы сразу начали в нее играть. А потом настал самый долгожданный момент праздника: родители вынесли торт и мы все вместе задули свечи. Этот день мне запомнился надолго, ведь до этого дня я никогда не отмечал свой День Рождения в кругу своих близких, настоящих друзей.

Я считаю, что в жизни самое главное найти тех, кто сможет тебя поддержать, несмотря на все сложности в твоей жизни, выслушать или подбодрить в трудную минуту. Ведь, как говорил Аристотель: «Дружба-самое необходимое для жизни, так как никто не пожелает жизни без друзей, даже если бы он имел все остальные блага».

Я счастлив, что такие люди есть в моей жизни. Я очень дорожу нашей дружбой, и в дальнейшем буду делать все, чтобы она становилась еще крепче и продолжалась всю нашу жизнь!

1) var  a: array[0..100] of integer;  i, s, n: integer;
begin 
writeln('Введите количество элементов в массиве: '); readln(n);   
for i := 1 to n do   begin   
a[i] := random(10);   
write(a[i], ' ');   
s := s * a[i]; 
end;   
writeln; 
writeln(s);
end.

2) var  a: array[0..100] of integer;  i, s, n: integer;
begin 
 writeln('Введите количество элементов в массиве: '); readln(n);   
for i := 1 to n do   begin   
a[i] := random(10);   
write(a[i], ' '); 
end;   
for i := 1 to n do   begin   
// if (i mod 2=0) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди четных номеров элементов.   
// if (a[i] mod 2=0) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди самих четных элементов. 
end;   
writeln; 
writeln(s);
end.

3)var  a: array[0..100] of integer;  i, s, n, max: integer;
begin 
writeln('Введите количество элементов в массиве: '); readln(n);   
 for i := 1 to n do   begin   
a[i] := random(10);   
write(a[i], ' '); 
end; 
s:=0; 
 for i := 1 to n do   begin   
if (a[i]>s) then s:=a[i]; 
end;   
writeln; 
writeln(s);
end.

4)var  a: array[0..100] of integer;  i, s, n, max: integer;
begin 
writeln('Введите количество элементов в массиве: '); readln(n);   
for i := 1 to n do   begin   
a[i] := random(10);   
write(a[i], ' '); 
end; 
s:=0; 
for i := 1 to n do   begin   
if (a[i]>s) and (a[i] mod 3=0) then s:=a[i]; 
end;   
writeln; 
writeln(s);
end.