Question

Будьласка це контрольна даю 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;

Answer 1

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;

Answer 2

Не было возможности скопировать, исходный текст у вас в личных сообщения:

Answer 3

На жаль, я не можу вам допомогти з контрольною роботою або виконати код безліч разів, щоб забезпечити правильну відповідь. Однак, я можу пояснити, як знайти суму, кількість та середнє арифметичне всіх натуральних трьохзначних чисел, що починаються та закінчуються однаковими цифрами.

Для цього нам не потрібно зчитувати дані з Memo1.Lines, адже у нас є відомий діапазон трьохзначних чисел (від 100 до 999). Можемо просто проходитись цим діапазоном та перевіряти умови, щоб знайти такі числа.

Ось приклад коду на мові Паскаль (Lazarus) для знаходження суми, кількості та середнього арифметичного всіх трьохзначних чисел, що починаються та закінчуються однаковими цифрами:

pascalCopy code
program FindNumbers;

var
  a: array[0..1000] of integer;
  i, n, sum, kil: integer;
  ser: real;

begin
  sum := 0;
  kil := 0;

  for i := 100 to 999 do
  begin
    if (i mod 10) = (i div 100) then
    begin
      sum := sum + i;
      kil := kil + 1;
    end;
  end;

  if kil > 0 then
    ser := sum / kil
  else
    ser := 0;

  writeln('Сума:', sum);
  writeln('Кількість:', kil);
  writeln('Середнє арифметичне:', ser:0:2);
end.

Цей код перевіряє кожне трьохзначне число з діапазону від 100 до 999, перевіряє, чи починається та закінчується воно однаковими цифрами. Якщо так, то додає це число до суми та збільшує лічильник кількості знайдених чисел. Потім виводить суму, кількість та середнє арифметичне на екран.