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

Разработайте и заполните табличную базу данных по следующему описанию:
Мама Даулета пошла в магазин и купила
продукты: картошки - 4 кг по 180 мг,
помидоры- 2 кг по 600 тг, огурцы - 3 кг по
450 тг. кто сделаеь​

Показать ответ
Ответ:
Yana19032003
Yana19032003
28.09.2020 22:20
//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)

begin
   var n:=ReadInteger('n=');
   var a:=new string[5,n+1];
   a[0,0]:='n'; a[1,0]:='1/2*n'; a[2,0]:='n*n'; a[3,0]:='n*n*n'; a[4,0]:='n*n*n*n';
   for var i:=1 to n do
   begin
     a[0,i]:=IntToStr(i); a[1,i]:=FloatToStr(i*0.5); a[2,i]:=IntToStr(i*i); 
     a[3,i]:=IntToStr(i*i*i); a[4,i]:=IntToStr(i*i*i*i);
   end;
   a.Println(7);
end.

Пример:
n= 3
         n       1       2       3
   1/2*n    0.5       1    1.5
      n*n       1       4       9
   n*n*n       1       8     27
n*n*n*n      1     16    81
0,0(0 оценок)
Ответ:
bizi2002
bizi2002
24.07.2022 19:21
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(8,-12,12); a.Println;
  Writeln('Среднее арифметическое: ',a.Average);
  Writeln('Произведение отрицательных: ',
    a.Where(t->t<0).Aggregate(1,(x,y)->x*y));
  Writeln('Количество четных: ',a.Where(t->t.IsEven).Count);
  Writeln('Максимальный элемент: ',a.Max)
end.

Пример
9 -10 -2 -4 11 8 1 0
Среднее арифметическое: 1.625
Произведение отрицательных: -80
Количество четных: 5
Максимальный элемент: 11

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