В таблице Dat представлены данные о количестве голосов, поданных за 10
исполнителей народных песен (Dat[1] — количество голосов, поданных за первого
исполнителя, Dat[2] — за второго и т. д.). Определите, какое число будет
напечатано в результате работы следующей программы.
Var k: integer; m: real;
Dat: array[1..10] of integer;
Begin
Dat[1]:= 16; Dat[2] := 20;
Dat[3]:= 20; Dat[4] := 41;
Dat[5]:= 14; Dat[6] := 21;
Dat[7]:= 28; Dat[8] := 12;
Dat[9]:= 15; Dat[10] := 35;
m := 0;
for k := 1 to 10 do
m := m+ Dat[k];
m := m /k;
writeln(m);
End.
Var
A,B:integer;
P:real;
C:boolean;
Begin
ClrScr;
Write('Введите натуральное число: ');ReadLn(B);
Write('A = ');ReadLn(A);
P:=1;
C:=false;
B:=Abs(B);
While B>0 do
Begin
P:=P*(B mod 10);
if B mod 10 = A then C:=true;
B:=B div 10
End;
WriteLn('P = ',P);
if C then WriteLn('Не верно')
else WriteLn('Верно');
ReadLn
End.
uses Crt;
Var
A:integer;
Begin
ClrScr;
For A:= 100 to 999 do
if ((A+1) mod 2 = 0)and((A+2) mod 3 = 0)and((A+3) mod 4 = 0)and((A+4) mod 5 = 0) then Write(A,' ');
ReadLn;
End.
uses Crt;
Var
A,B,C:integer;
Begin
ClrScr;
Write('Введите натуральное число: ');ReadLn(B);
Write('A = ');ReadLn(A);
C:=0;
While B<>0 do
Begin
if B mod 10 <> A then C:=C*10+B mod 10;
B:=B div 10;
End;
While C<>0 do
Begin
B:=B*10+C mod 10;
C:=C div 10
End;
WriteLn(B);
ReadLn;
End.