Какие значения примут переменные х и у в результате выполнения следующих фрагментов? read(a,b) x: =0; - id401394020221022 от lotop 22.10.2022 21:52

Question

Информатика: Какие значения примут переменные х и у в результате выполнения следующих фрагментов? read(a,b) x: =0; y: =0; if a=b then x: = a+b; y: = a*b; ответ : при а=2; b=3, х= , у= при а=5,b=5 x= y=

lotop · Accepted Answer

Решение для одного-двух разных удаляемых символов

// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!

begin
var s:=ReadlnString('>');
s:=s.Replace('.','').Replace(',','');
s.Println
end.

Пример
> Раз, два, три, четыре, пять. Вышел зайчик погулять.
Раз два три четыре пять Вышел зайчик погулять

Решение, когда разных удаляемых символов может быть много

// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!

begin
var s:=ReadlnString('>');
s:=s.Where(с->not(с in [',','.'])).JoinIntoString;
s.Println
end.

Какие значения примут переменные х и у в результате выполнения следующих фрагментов? read(a,b) x: =0; y: =0; if a=b then x: = a+b; y: = a*b; ответ : при а=2; b=3, х= , у= при а=5,b=5 x= y=

MOGZ ответил