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

Андрей может вводить текстовую информацию со скоростью 138 символов в минуту. Выясни, сколько времени ему понадобится для того, чтобы ввести в память компьютера напечатанный текст на 434 страницах; каждая страница содержит 47 строк, в каждую строку входит в среднем 53 символа

👇
Ответ:
anokhina69
anokhina69
18.12.2021

Скорость печати Андрея равна 138 символов в минуту.

В тексте у нас 434 * 47 * 53 = 1081094 cимволов

1081094 / 138 = 7834.01449 минут ему понадобится.

4,5(63 оценок)
Открыть все ответы
Ответ:
Kolosov77
Kolosov77
18.12.2021
// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
  a:=a.Reverse.ToArray; a.Println
end.

Пример
n= 13
1 80 -54 36 84 -43 -88 43 36 9 -14 -19 -38
-38 -19 -14 9 36 43 -88 -43 84 36 -54 80 1

Вариант для вывода элементов массива в 8 позициях:

begin
  var a:=ArrRandom(ReadInteger('n='),-99,99);
  a.Select(t->Format('{0,8}',t)).Println('');
  a:=a.Reverse.ToArray;
  a.Select(t->Format('{0,8}',t)).Println('')
end.

Перестановка одномерного массива в обратном порядке. значение длины массива вводиться с клавиатуры .
4,5(39 оценок)
Ответ:
ANI577
ANI577
18.12.2021
// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!

№1

begin
  var (a,b):=ReadInteger2('Границы интервала [A,B]:');
  for var n:=a to b do
    if (Abs(n mod 10)=3) and (n mod 3=0) then Print(n)
end.

Пример
Границы интервала [A,B]: -50 142
-33 -3 3 33 63 93 123

№2

begin
  var (a,b):=ReadInteger2('Границы интервала [A,B]:');
  var k:=0;
  for var n:=a to b do begin
    var m:=Abs(n);
    if (m mod 10=9) and (m mod 100<>99) and (m>=100)
        and (m<=999) then begin Print(n); k+=1 end
    end;
  if k=0 then Writeln('Таких чисел нет') 
end.

Примеры
Границы интервала [A,B]: -200 160
-189 -179 -169 -159 -149 -139 -129 -119 -109 109 119 129 139 149 159

Границы интервала [A,B]: 52 101
Таких чисел нет

№3

begin
  var n:=ReadInteger('Введите количество предметов:');
  var m:=0.0;
  for var i:=1 to n do begin
    Write('Маcса предмета № ',i,': '); m+=ReadReal;
    end;
  Writeln('Масса груза равна ',m)
end.

Пример
Введите количество предметов: 5
Маcса предмета № 1: 24.62
Маcса предмета № 2: 8.1
Маcса предмета № 3: 132
Маcса предмета № 4: 24.5
Маcса предмета № 5: 52.7
Масса груза равна 241.92
4,4(90 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ