privitvsim
15.07.2021 18:06

Напишите программу, которая в последовательности натуральных чисел находит среднее арифметическое трёхзначных чисел. программа получает на вход количество натуральных чисел и сами натуральные числа. количество чисел не превышает 100. введённые числа не превышают 300.​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Ainur0529
04.08.2021 04:15
Первая программа.

Program d_and_e;

Var
   a,b,sum_d,sum_e:integer;

Begin
  WriteLn('введите первое число: ');
  ReadLn(a);
  WriteLn('введите второеое число: ');
  ReadLn(b);
  sum_d:=(a div 10) + (b div 10);
  sum_e:=(a mod 10) + (b mod 10);
  WriteLn('сумма десятков чисел: ', sum_d);
  WriteLn('сумма единиц чисел: ', sum_e);
end.

Вторая программа.

Program d_and_e;

Var
   a,b,mult_d1_e2,mult_e1_d2:integer;

Begin
  WriteLn('введите первое число: ');
  ReadLn(a);
  WriteLn('введите второе число: ');
  ReadLn(b);
  mult_d1_e2:=(a div 10) * (b mod 10);
  mult_e1_d2:=(a mod 10) * (b div 10);
  WriteLn('произведение десятков 1-го и единиц 2-го числа: ', mult_d1_e2);
  WriteLn('произведение единиц 1-го и десятков 2-го числа: ', mult_e1_d2);
end.

Третья программа.

Program d_and_e;

Var
   a,b,mult_d1_e2,sum_e1_d2:integer;

Begin
  WriteLn('введите первое число: ');
  ReadLn(a);
  WriteLn('введите второе число: ');
  ReadLn(b);
  mult_d1_e2:=(a div 10) * (b mod 10);
  sum_e1_d2:=(a mod 10) + (b div 10);
  WriteLn('произведение десятков 1-го и единиц 2-го числа: ', mult_d1_e2);
  WriteLn('сумма единиц 1-го и десятков 2-го числа: ', sum_e1_d2);
end.
0,0(0 оценок)
Ответ:
kerdivar86
01.12.2021 02:28

На мой взгляд, самая интересная, но сложная профессия - это быть врачом.

Врач - очень благородная профессия. В современном мире очень быстро развивается медицина. Ведь человек, его здоровье - это самое важное, что есть на земле. Врачи бывают разных

специальностей. Например, лор, невролог, врачи скорой Я думаю, что врачам скорой

сложнее всего. Представьте, сколько вызовов за день могут взвалить на свои плечи эти трудолюбивые люди. Мы должны с уважением относиться к врачам. Ведь придет и наш черед

обратиться к ним за И они Врачи никогда не кинут тебя в беде.

Вот почему я считаю, что врач - это самая благородная и трудная профессия на земле.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота