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

2. Найти произведение всех четных чисел кратных трем. Выход из программы по вводу числа 0​

👇
Открыть все ответы
Ответ:
01.10.2021

Спочатку потрібно викликати процедуру randomize.

Потрібно створити ціле число, що належить інтервалу [1, 4]. Для цього будемо використовувати формулу X:=Random(B-A+1)+A, де A=1,B=4.

Перевіримо створене число.

Якщо воно дорівнює 1, то надрукуємо слово 'піка'.

Якщо воно дорівнює 2, то надрукуємо слово 'треф'.

Якщо воно дорівнює 3, то надрукуємо слово 'бубна'.

Якщо воно дорівнює 4, то надрукуємо слово 'чирва'.

Програма

var x:byte;

begin

randomize;x:=random(4)+1;

if x=1 then writeln('пики');

if x=2 then writeln('трефи');

if x=3 then writeln('бубни');

if x=4 then writeln('черви');

end.

Приклад 2

Одержати у програмі 10 випадкових цілих чисел у діапазоні від 0 до 10 включно та знайти їх суму.

Змінні:

Вхідних даних немає.

Вихідні:

x – число, що має значення від 0 до 10 (ціле число)

s – сума всіх чисел x

Проміжні:

i – параметр циклу (ціле число)

4,4(8 оценок)
Ответ:
marimitul
marimitul
01.10.2021
1. Современное решение

// PascalABC.NET 3.2, сборка 1356 от 04.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  Writeln('Среднее положительных ',a.Where(x->x>0).Average);
  Writeln('Минимум ',a.Min)
end.

Пример
n= 15
35 27 -7 -1 20 13 6 50 -9 23 -38 46 30 27 14
Среднее положительных 26.4545454545455
Минимум -38

2. Школьный вариант на древних версиях

program Ex1;
const
  nn=100; { ограничение на длину массива }
var
  i,n,s,k:integer;
  a:array[1..nn] of integer;
begin
  Randomize;
  Write('n='); Read(n);
  k:=0;
  for i:=1 to n do begin
    a[i]:=Random(101)-50;
    Write(a[i],' ');
    if a[i]>0 then begin
      k:=k+1; s:=s+a[i]
      end
    end;
  Writeln;
  Writeln('Среднее положительных ',s/k) 
end.

program Ex2;
const
  nn=100; { ограничение на длину массива }
var
  i,n,min:integer;
  a:array[1..nn] of integer;
begin
  Randomize;
  Write('n='); Read(n);
  min:=100; { больше максимально возможного }
  for i:=1 to n do begin
    a[i]:=Random(101)-50;
    Write(a[i],' ');
    if a[i]<min then min:=a[i]
    end;
  Writeln;
  Writeln('Минимум ',min)
end.

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