В) a: =951 b: =a div 100+a mod 100 a: =a div 10 a: =a mod 10 a=a+bг) a: =336 b: =8 a: =a div b b: = - id987544520220701 от ALEXIA24 01.07.2022 21:39

Question

Информатика: В) a: =951 b: =a div 100+a mod 100 a: =a div 10 a: =a mod 10 a=a+bг) a: =336 b: =8 a: =a div b b: = a mod bд) a: =10 b: =20 b: =a+b a: =b-a b: =b+a​

ALEXIA24 · Accepted Answer

// PascalABC.Netvar vowel: set of char = [ а , у , о , ы , и , э , я , ю , ё , е ];s, substr: string;begin   s := кот в сапогах ;   var words := s.Split( );   for var i := 0 to words.length - 1 do   begin       for var j := 1 to words[i].Length do           if words[i][j] in vowel then           begin               substr := Copy(words[i], 1, j-1);               Delete(words[i], 1, j-1);               words[i] += substr;               break;           end;       words[i] += циус ;   end;   writeln(words.JoinIntoString(...

В) a: =951 b: =a div 100+a mod 100 a: =a div 10 a: =a mod 10 a=a+bг) a: =336 b: =8 a: =a div b b: = a mod bд) a: =10 b: =20 b: =a+b a: =b-a b: =b+a​

MOGZ ответил

В) a: =951 b: =a div 100+a mod 100 a: =a div 10 a: =a mod 10 a=a+bг) a: =336 b: =8 a: =a div b b: = a mod bд) a: =10 b: =20 b: =a+b a: =b-a b: =b+a