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

Var i, n, s: integer; a: array[1..10] of integer; begin writeln('введите колличество чисел (не больше 10)'); read(n); s: =0; randomize; begin for i: =1 to n do a[i]: =random(100); for i: =1 to n do s: =s+a[i]; for i: =1 to n do write (s,' '); end; end. я хочу чтобы выходило в итоге 10 последовательных значений числа s, а он пишет 10 раз конечное значение. что не так?

👇
Ответ:
Aidana1620
Aidana1620
19.03.2023
Последний цикл лишний. Надо было вывод суммы делать во втором цикле вот так:

for i:=1 to n do
  begin
    s:=s+a[i];
    write (s,' ');
  end;
4,8(47 оценок)
Открыть все ответы
Ответ:
Dinobot774
Dinobot774
19.03.2023

Задача 10.

var

 flag, a: integer;

 n: longint;

begin

 Write('n -> '); Readln(n);

 flag := 0;

 

 while (n <> 0) do

 begin

   a := n mod 10;

   if (a = 3) then flag := 1;

   n := n div 10;

 end;

 

 if (flag = 1) then Writeln('Цифра 3 есть в записи числа')

 else Writeln('Цифры 3 не встречается в записи числа');

 Readln;

end.

Задача 11.

var

 a, flag_2, flag_5: integer;

 n: longint;

begin

 Write('n -> ');

 Readln(n);

 

 flag_2 := 0;

 flag_5 := 0;

 repeat

   a := n mod 10;

   

   if (a = 2) then flag_2 := 1

   else if (a = 5) then flag_5 := 1;

   

   n := n div 10;

 until n = 0;  

 

 if (flag_2 = 1) and (flag_5 = 1) then Writeln('Цифры 2 и 5 есть в записи числа')

 else if (flag_2 = 1) and (flag_5 = 0) then Writeln('В записи числа присутствует цифра 2, но отсутствует цифра  5')

 else if (flag_2 = 0) and (flag_5 = 1) then Writeln('В записи числа присутствует цифра 5, но отсутствует цифра  2')

 else Writeln('Цифры 2 и 5 не встречаются в записи числа');

 Readln;

end.

Задача 13.

var

 a, k, i: integer;

 n: longint;

begin

 write('n -> ');

 Readln(n);

 Write('k -> ');

 Readln(k);

    i := 0;

 repeat

   a := n mod 10;

   if a = 5 then i := i + 1;

   n := n div 10;  

 until n = 0;

 

 if (i > k) then Writeln('Не верно')

 else Writeln('Верно');

 Readln;

end.

Задача 14.

var

 a, k_0, k_9: integer;

 n: longint;

begin

 write('n -> ');

 Readln(n);

 

 k_0 := 0;

 k_9 := 0;

 repeat

   a := n mod 10;

   if a = 0 then k_0 := k_0 + 1

   else if a = 9 then k_9 := k_9 + 1;

   n := n div 10;  

 until n = 0;

 if (k_0 > k_9) then Writeln('Нолей больше')

 else if (k_9 > k_0) then Writeln('Девяток больше')

 else if (k_9 = 0) and (k_0 = 0) then Writeln('В числе отсутствуют 0 и 9')

 else Writeln('Их одинаковое количество');

 Readln;

end.

Задача 15.

var

 min, a: integer;

 n: longint;

begin

 write('n -> ');

 Readln(n);

 min:=10;

 while n <> 0 do

   begin

   a := n mod 10;

   if a < min then min := a;

   n := n div 10;  

 end;

 Writeln('Минимальная цифра ', min);

 Readln;

end.

Задача 16.

var

 first_digit, last_digit, k: integer;

 n: longint;

begin

 write('n -> ');

 Readln(n);

 

 k := 1;

 // найдём разряд последней цифры в числе

 while n div k >= 10 do

 begin

   k := k * 10

 end;

 

 // первая цифра

 first_digit := n mod 10;

 // последняя цифра

 last_digit := n div k;

 

 // если первая и последняя цифра числа равны то нет необходимости менять первую и последнюю цифру местами

 if (first_digit = last_digit) then

   Write(n)

 else

   Writeln(first_digit * k + (n mod k div 10) * 10 + last_digit);

end.

4,6(82 оценок)
Ответ:
jfjjthvhhcj
jfjjthvhhcj
19.03.2023
Сохранение текстовой информации страницы
1. Выделите фрагмент текста, который хотите сохранить.
2. Щелкните правой кнопкой мыши по выделенному фрагменту и в открывшемся контекстном меню выберите строку Копировать. Выделенный текст
попадет в буфер обмена.
3. Откройте любой текстовый редактор, например Word, создайте новый файл и вставьте содержимое буфера обмена по команде Правка - Вставить.
Что дальше делать с файлом, решайте сами.

Сохранение картинки
Щелкните правой кнопкой мыши по понравившейся картинке. В открывшемся контекстном меню выберите строку Сохранить рисунок как. Далее - как всегда: указываете имя файла и выбираете папку, в которой следует сохранить файл с изображением.

Сохранение всей страницы целиком
1. Выполните команду Файл - Сохранить как файл.
2. В открывшемся окне в поле Тип файла выберите вариант, например HTML-файл с изображениями или веб-страница полностью.



 

3. Как всегда, задайте имя файла и выберите папку, в которой она будет храниться.
Теперь вы в любой момент сможете посмотреть содержимое сохраненной странички, не подключаясь к Интернету.

Сохранение фрагмента страницы
1. Выделите фрагмент страницы, включая не только текст, но и изображения.
2. Щелкните правой кнопкой мыши по выделенному фрагменту и в открывшемся контекстном меню выберите строку Копировать. Выделенный текст попадет в буфер обмена.
3. Откройте текстовый редактор, создайте новый файл и вставьте содержимое буфера обмена по команде Правка - Вставить.

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