М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
sashka1281
sashka1281
14.02.2023 15:22 •  Информатика

Составте программу в паскале нахождения максимального из чисел a, b, c, d. ввод должен быть с клавиатуры

👇
Ответ:
kerikmr1
kerikmr1
14.02.2023
Var
a, b, c, d, n : integer;
begin
write('введите первое число ');
readln(a);
write('введите второе число ');
readln(b);
write('введите третье число ');
readln(c);
write('введите четвёртое число ');
readln(d);
n:=a;
if b>n then n:=b;
if c>n then n:=c;
if d>n then n:=d;
writeln('Большее из чисел равно ', n);
end.
4,8(68 оценок)
Открыть все ответы
Ответ:
Если вынуть 94 конфет, то будут конфеты всех 3 видов.Пусть у нас по n конфет каждого вида.Тогда может так получиться, что мы вынем 2n конфет, и они будут только 2 видов. И только, вынув (2n+1)-ю конфету, мы получим все три.2n+1 = 942n = 93.Значит, конфет одного и другого вида по [93/2] = 46,а конфет третьего вида 47.Пусть ирисок и леденцов по 46, а шоколадных 47.Вынув 46 ирисок и 46 леденцов (92 конфет), мы получим 2 вида.Вынув 46 ирисок и 47 шоколадных (93), мы получим 2 вида.Вынув 46 леденцов и 47 шоколадных (93), мы получим 2 вида.И только вынув 94-ую (в 1 случае 93 и 94), мы получим 3 вида.ответ: всего конфет было 46 + 46 + 47 = 139.
4,6(2 оценок)
Ответ:
Nika152Vika
Nika152Vika
14.02.2023

1)

var

 D: array[1..20] of integer;

 i, min: integer;

begin

min := 100; // минимальное значение

for i:=1 to 20 do

begin

  D[i] := random(100);

  if D[i] < min then

    min := D[i];

end;

write(min);

end.

2)

var

 B: array[1..30] of integer;

 i, sum, count: integer;

 srAr: real;

begin

 count := 0; // количество чисел больших среднего арифметического

 sum := 0; // сумма всех чисел массива

 for i := 1 to 30 do

 begin

   B[i]:= random(30) + 20;

   sum := sum + B[i];

 end;

 srAr := sum / 30; // среднее арифметическое

 

 for i := 1 to 30 do

   if B[i] > srAr then

     count := count + 1;

   

 write(count);

end.

4,5(74 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ