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

Задача по информатике: (PascalABC)
Получить случайным образом N целых чисел, и найти их сумму. (функцией большое !

👇
Ответ:
255615
255615
20.10.2022

var

 f: array[1..100] of integer;

 i, n, s: integer;

begin

 writeln('Введите количество чисел: ');

 readln(n);

 randomize;

 for i := 1 to n do  

 begin

   f[i] := random(0, n);

   write(f[i], ' ');

 end;

 s := 0;

 for i := 1 to n do

 begin

   s := s + f[i];

 end;

 writeln('Сумма: ', s);

end.

4,5(56 оценок)
Открыть все ответы
Ответ:
мим221
мим221
20.10.2022

116

Объяснение:

d = 100

для k от 5 до 12 выполнить

Действия в цикле:

1)  d = d - 6

2) d = d + 8

Вывод d

Цикл выполнится 8 раз

количество повторов в цикле равно конечное значение (12) переменной  счётчика (k) минус начальное  значение (5)  переменной  счётчика (k) плюс 1

количество повторов в цикле = 12 - 5 + 1 = 7 + 1 = 8

В цикле переменная d сначала уменьшается на 6, а затем увеличивается на 8.

В сумме эти действия (-6 + 8 = 2) увеличивают переменную d на 2.

Следовательно за весь цикл переменная d увеличится на 2 * 8.

Т.к. в начале программы d = 100, то

d = 100 + 2 * 8 = 100 + 16 = 116

4,5(75 оценок)
Ответ:
Вадик151
Вадик151
20.10.2022
  program proga_25_1;
 Var
A: text;     
i,j,n,m : byte;     
 d: string;     
Sim:char;
 Begin             
write('Введите имя текстового файла   ');  {Например: "test" он создастся там где находится сама программа }               
read(d);                                       
 Assign(A,d);               
 rewrite(A);                   
 write('Введите количество строк: N= ');                        
readln(n);                   
 write('Введите количество символов в строке: M= ');                     
  readln(m);                                     
for I:=1 to n do                   
 begin                         
 Sim:=Chr(Ord('1')+I-1);                         
  For J:=1 to m do                             
  write(A,Sim);                               
 writeln(A);                 
  end;                         
  close(A);
end.     
4,6(45 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ