В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
киса711
киса711
30.03.2021 12:08 •  Информатика

Какие значения будут храниться в ячейках А5:А6 и С4:С6 после копирования в них формулы из А4.

Какие значения будут хранится в ячейках В3:В6 после копирования в них формулы из ячейки В2.

Какие значения будут хранится в ячейках Е1:Е6 после копирования в них формулы из ячейки D1.

Показать ответ
Ответ:
Zhanna278
Zhanna278
10.05.2020 01:19

Программа:

Pascal:

var

 chemodan, klad, dop: real;

begin

 write('Вес чемодана', #10, '<<< '); readln(chemodan);

 write('Вес ручной клади', #10, '<<< '); readln(klad);

 write('Вес доп. предметов ручной клади', #10, '<<< '); readln(dop);

 writeln('Вес багажа: ', chemodan + klad + dop);

end.

Python:

chemodan = float(input('Вес чемодана\n>>> '))

klad = float(input('Вес ручной клади\n>>> '))

dop = float(input('Вес доп. предметов ручной клади\n>>> '))

print('Вес багажа:', chemodan + klad + dop)

0,0(0 оценок)
Ответ:
dinkooo96
dinkooo96
08.10.2020 21:01
uses
  GraphABC;

var
  x, y: integer;
  s: array of string;
  b: GraphABC.Point;

begin
  s := System.IO.File.ReadAllLines('in.txt');
  foreach a: string in s do
  begin
    X := integer.Parse(a.Replace('(', '').Replace(')', '').Replace(' ', '').Split(';')[0]);
    Y := integer.Parse(a.Replace('(', '').Replace(')', '').Replace(' ', '').Split(';')[1]);
    if not (b.IsEmpty) then
      GraphABC.LineTo(X, Y)
    else
    begin
      GraphABC.MoveTo(X, Y);
      b := new Point(x, y);
    end;
    DrawCircle(x, y, 10);
  end;
  LineTo(b.X, b.Y);
end.

Код, конечно, вырвиглазный, зато работает и прочитать его относительно легко:)

Содержимое файла in.txt (для теста)

(50; 50)
(90; 50)
(90; 90)
(50; 90)
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота