Регистрация
niga123098
16.07.2022 06:16
Информатика
Есть ответ 👍

Написать подпрограмму, которая все слова вида "+" заменит на результат операции. например: строка " undg 45+2 jf 100+1" должна быть преобразована в строку " undg 47 jf 101" использовать заголовок: procedure summ(var s: string); pascalabc

237
320
Посмотреть ответы 2

Ответы на вопрос:

PolzoBatelb
PolzoBatelb
4,6(63 оценок)

// pascalabc.net 3.4.2, сборка 1790 от 15.09.2018

// внимание! если программа не работает, обновите версию!

{$reference system.data.dll}

uses system.data;

procedure summ(var s: string);

begin

  var o : = new datatable;

  s : = s.regexreplace('\d+\+\d+', m -> o.compute(m.value, '').tostring)

end;

begin

  var s : = readlnstring('введите строку: ');

  summ(s);

  s.println

end.

Lngtnk5
Lngtnk5
4,4(17 оценок)

32*32 = 1024 пикселя. 1024 байта / 1024 пикселя = 1 байт = 8 бит на пиксель. а в 8 битах можно закодировать 2^8 = 256 цветов.

Популярно: Информатика