В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
oznobiseva2006
oznobiseva2006
14.09.2022 00:52 •  Информатика

Создать объект на основе класса. Осуществить использование объекта в программе с вызовом метода, решающего поставленную задачу. Значения полей вводятся с клавиатуры либо задаются в конструкторе класса. Реализовать класс Numbers, обозначающий числа. Поля a, b для обозначения этих чисел – типа int. Определить метод NOD() для нахождения наибольшего общего делителя для a и b.

Показать ответ
Ответ:
ginfv
ginfv
04.09.2022 17:07
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 Писал не на компьютере, возможны ошибки, проверьте и в случае если обнаружатся ошибки, напишите мне
0,0(0 оценок)
Ответ:
aliona123456789
aliona123456789
12.08.2022 00:24
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;
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота