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

Элементы массива, информатика, 9 класс. заполнить массив кубами 10 натуральных чисел и посчитать сумму первых 7 элементов массива. , , нужно.

👇
Ответ:
Remka228
Remka228
26.04.2021
// PascalABC.NET 3.2, сборка 1437 от 03.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrGen(10,i->(i+1)*sqr(i+1)); a.Println;
  Writeln('S7=',a.Take(7).Sum);
end.

Результат
1 8 27 64 125 216 343 512 729 1000
S7=784
4,6(57 оценок)
Ответ:
natalika79
natalika79
26.04.2021
Программа на скрине! Надеюсь
Элементы массива, информатика, 9 класс. заполнить массив кубами 10 натуральных чисел и посчитать сум
4,4(79 оценок)
Открыть все ответы
Ответ:
Двоищник234
Двоищник234
26.04.2021
1)
begin
  var s1:=ReadlnString('Текст:');
  Writeln('k = ',s1.Where(c->Pos(c,'01')>0).Count);
  var s2:=s1.Select(c->c='0'?'A':c).Select(c->c='1'?'M':c);
  s2.Println;
end.

Пример:
Текст: Текст с 1 и 0: 110+101=1011
k = 12
Текст с M и A: MMA+MAM=MAMM

2)
var s1,s2:string;
i,k:integer;
begin
writeln('Введите текст:');
readln(s1);
k:=0;
s2:='';
for i:=1 to length(s1) do
 if s1[i]='0'
  then begin s2:=s2+'A'; k:=k+1; end
  else if s1[i]='1' then begin s2:=s2+'M'; k:=k+1; end else s2:=s2+s1[i];
writeln(s2);
writeln('k = ',k);
end.

Пример:
Введите текст:
Текст с 1 и 0: 110+101=1011
Текст с M и A: MMA+MAM=MAMM
k = 12
4,5(50 оценок)
Ответ:
ynavuhlitska
ynavuhlitska
26.04.2021

                                                            Интернет.

Интернет-популярное средство обмена информацией среди милионов пользователей.Ежедневно интернетом пользуются больше 2 млрд пользователей по всему миру,и с каждым годом пользователей становиться всё больше и больше.В дальнейшем будущем,почти не останется человека,который бы не пользовался интернетом.Но в этом есть и плохое,изобретая всё новые и новые инновации,человечество уже не будет ходить в магазины,делать покупки,гулять,за них всё будет делать техника и интернет.В итоге все действия превратяться в виртуальные.Всё же переборщять с интернетом не стоит.

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