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;
Var a,b:array[1..3] of integer; begin a[1]:=Random(26); b[1]:=Random(26); a[2]:=Random(26)+25; b[2]:=Random(26)+25; a[3]:=Random(51)+50; b[3]:=Random(51)+50; writeln(a[1],' ',a[2],' ',a[3]); writeln(b[1],' ',b[2],' ',b[3]); if (a[1]=b[1]) and (a[2]=b[2]) and (a[3]=b[3]) then writeln('Совпало 3') else if ((a[1]=b[1]) and (a[2]=b[2])) or ((a[2]=b[2]) and (a[3]=b[3])) or ((a[1]=b[1]) and (a[3]=b[3])) then writeln('Совпало 2') else if (a[1]=b[1]) or (a[2]=b[2]) or (a[3]=b[3]) then writeln('Совпало 1') else writeln('Совпадений нет'); end.
P.S Писал не на компьютере, возможны ошибки, проверьте и в случае если обнаружатся ошибки, напишите мне
Var (переменные):(тип переменных);
begin
(цикл или действие программы)
writeln ( выводишь то что нужно);
readln;
end.