Будьласка це контрольна даю 50 балів
Але хто пише неправильно блокую і бали забераються!!!
Знайдіть суму,кількість та середнє арифметичне всіх натуральних трьохзначних чисел що починаються та закінчуються однаковими цифрами
В Лазарусі
Початок маю
a:array[0..1000] of integer;
i,n,sum,kil:integer;
ser:real;
n:=Memo1.Lines.Count;
sum:=0;
for i:=0 to n do
a[i]:=StrToInt(Memo1.Lines[i-1]);
for i:=1 to n do
if (a[i]<10) and (a[i]<1000) then begin
if (a[i]div 100) =(a[i] mod 10) then
sum:=sum+a[i];
kil:=kil+1;
ser:=sum/kil;
Але хто пише неправильно блокую і бали забераються!!!
Знайдіть суму,кількість та середнє арифметичне всіх натуральних трьохзначних чисел що починаються та закінчуються однаковими цифрами
В Лазарусі
Початок маю
a:array[0..1000] of integer;
i,n,sum,kil:integer;
ser:real;
n:=Memo1.Lines.Count;
sum:=0;
for i:=0 to n do
a[i]:=StrToInt(Memo1.Lines[i-1]);
for i:=1 to n do
if (a[i]<10) and (a[i]<1000) then begin
if (a[i]div 100) =(a[i] mod 10) then
sum:=sum+a[i];
kil:=kil+1;
ser:=sum/kil;
More Questions From This User See All
Answers & Comments
Verified answer
Var i,j,s,k:integer;begin
s:=0; k:=0;
for i:=1 to 9 do
for j:=0 to 9 do
begin
s:=s+i*100+j*10+i;
k:=k+1;
end;
writeln('s = ',s,' k = ',k,' sred = ',s/k:6:2);
end.
Результат:
s = 49500 k = 90 sred = 550.00
Если нужно приложение с формой, то:
помещаете на форме командную кнопку (Button) и статичный текст (StaticText).
В обработчик кнопки добавляете код:
procedure TForm1.Button1Click(Sender: TObject);
var i,j,s,k:integer; s:string;
begin
s:=0; k:=0;
for i:=1 to 9 do
for j:=0 to 9 do
begin
s:=s+i*100+j*10+i;
k:=k+1;
end;
s:='s = '+IntToStr(s)+' k = '+IntToStr(k)+' sred = '+FloatToStr(s/k);
StaticText1.Caption := s;
end;