i s
1)2 2
2)4 4
3)6 6
4)8 8
5)10 10
дальше не будет , ибо i превысит 10
var a,z,x,y:real;
begin
writeln('Введите значение a: ');
readln(a);
writeln('Введите значение z: ');
readln(z);
writeln('Введите значение y: ');
readln(y);
a:=(1+z)*((x+(y/(sqr(x)+4)))/(2+(1/(sqr(x)+4))));
writeln('a = ',a);
end.
Кхм. У нас было похожее задание. У нас в учебнике в начале параграфа прям так и написано "ключевые слова/определения" и слова, которые описывают всю суть параграфа. Если у вас такого нет, просто спиши слова которые выделены жирным или курсивом в параграфе и вуаля.
P.S программа работает для русских символов. Если нужны латинские, то поменяйте все "а","у" и "х" на соответствующие
program n1;
uses crt;
var
st:string;
i:integer;
begin
writeln('Введите строку'); readln(st);
for i:=1 to length(st) do
if (st[i]='а') and (st[i+1]='х') then st[i]:='у';
writeln(st);
<span>end.</span>
Var A,i,k:integer;
Begin
Write('Введите 10 целых чисел: ');
k:=0;
For i:= 1 to 10 do
Begin
Read(A);
if A>0 then k:=k+1
End;
Write('Количество положительных: ',k);
End.