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

Составить программу на язык программирования pascal, которая считывает из файла a.txt два целых числа, вычисляет их произведение, записывает результат в файл b.txt

👇
Ответ:
PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadAllText('A.txt').ToReals;
  WriteAllText('B.txt',(a[0]*a[1]).ToString)
end.
4,5(8 оценок)
Открыть все ответы
Ответ:
milana5697
milana5697
11.05.2022

1)

Аня сестра Вадим. Вера сестра Аркадия. Ира сестра Артёма

В условии сказано что один из них не клал грибы в корзину своей сестры, а про других не говорилось, Вадим и Аркадий клали грибы в корзины Ани и Веры. Артём не клал не в одну корзину, но так как каждый именно своей сестре, то Вадим Ане, значит она его сестра, Аркадий Ане и Вере, его сестрой не может быть Аня так как она сестра Вадима, значит его сестра Вера. Остаётся Артём и Ира, значит Ира сестра Артёма.

2)

Б

3)Объем информации, который занимает один символ компьютерного алфавита из 256 символов = 8 бит или 1 байт. В 1кбайте=1024бит

Значит 11×1024=11264

Далее 22528-11264=11264.

Получается мощность алфавита в 2 раза больше объёма данного сообщения.

4,8(73 оценок)
Ответ:
doc9w
doc9w
11.05.2022
Const n=10;
var 
  a,b:array [1..n] of integer;
  i,min1,min2,k:integer;
begin
  randomize;
  For i:=1 to n do begin
    a[i]:=random(10);    
    b[i]:=random(10);
  end;
  writeln (a);
  writeln (b);
  writeln;
  min1:=1000;
  min2:=1000;
  For i:=1 to n do begin
    if a[i]<min1 then min1:=a[i];
    if b[i]<min2 then begin min2:=b[i]; k:=i end;
  end;
  if k<n 
    then begin 
      b[k+1]:=min1; 
      writeln (a);
      writeln (b);
    end
    else writeln ('Минимальным является последний элемент');  
end.

Примеры:
1)
[4,5,2,2,7,3,8,6,8,6]
[5,5,2,2,3,7,9,9,4,1]

Минимальным является последний элемент

2)
[0,1,7,3,1,1,0,1,6,1]
[8,3,8,0,7,2,1,4,0,9]

[0,1,7,3,1,1,0,1,6,1]
[8,3,8,0,0,2,1,4,0,9]


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