Qiymat berish operatorlari

1-topshiriq.
Program Ikki_son;
Var I,J:Real;
Begin
Write('Birinchi sonni kiriting=');
ReadLn(I);
Write('Ikkinchi sonni kiriting=');
ReadLn(J);
WriteLn ('Ular yig’indisi=', I+J);
WriteLn ('Ular kupaytmasi=',I*J);
If j <>0 then WriteLn ('Ular bo‘linmasi=', I/J);
end.

2-topshiriq.
Program Ikki_son_3;
Var I, J: Integer;
begin
Writeln ('birinchi va ikkinchi sonlarni kiriting');
Readln (I, J);
Writeln ('ular yigindisi=', I+J, ' kupaytmasi=', I*J);
End.

3-topshiriq.
uses crt;
begin
textcolor(yellow);
textbackground(blue);
writeln ('Bu matn ekranda kok fonda sariq rangda chiqadi');
end.

4-topshiriq.
program sikl;
var i,n,s:integer;
begin
write('N=');ReadLn(N);
s:=0;
For i:=1 TO n DO
s:=s+i;
WriteLn('Yigindi=',s);
end.


5-topshiriq.
program sikl2;
var N,i:integer;
s:real;
begin
write('N=');readln(N);
s:=0;
for i:=n downto 1 do
s:=s+1/i;
WriteLn('Yiginsi=',s);
end.

6-topshiriq.
program sikl;
var n,i:integer;
s:real;
begin
write('N=');ReadLn(n);
s:=0; i:=0;
while ibegin
i:=i+1;
s:=s+1/i;
end;
WriteLn('S=',s);
end.

7-topshiriq.
Program massiv;
uses crt;
var i: integer;
mas1: ARRAY [1..10] OF INTEGER; {massivni e`lon qilish}
begin
WriteLn('Massiv elementlarini kiriting');
for i:=1 to 10 do
ReadLn(mas1[i]);
WriteLn('Massiv elementlarini teskari tartibda chiqarish');
for i:=10 Downto 1 do
write(mas1[i],' ');
end.

8-topshiriq.
Var ism, fam: string[15];
FIO: string [30];
begin
ism:=' Ne''mat';
fam:='Abdurahimov';
Fio:=fam+ism; { Fio:= fam+' '+ism;}
WriteLn(fio);
end.