program p1; vara: string; i: integer; beginreadln(a); for i: =length(a) downto 2 dobeginif a[i]=a[i-1]then delete(a,i,1); end; writeln(a); end.
ввел: asdfsss
результат: asdfs
либо я не знаю либо нужно подумать. но символу нельзя присвоить число ему можно присвоить только символ.
Ответ дал: Гость
составим таблицу:
| молоко | лимонад | квас | вода
бутылка | - | + | - | -
стакан | - | - | - | +
кувшин | + | - | - | -
банка | - | - | + | -
Ответ дал: Гость
программа №4program str999; uses crt; var s: string; begin writeln('введіте фразу'); read(s); if (s='край озер') then writeln ('край озер лесов и рек'); if (s='я учусь в школе') then writeln ('я учусь в 10-м классе') end. №5program p_1; uses crt; var s: string; begin writeln('введите фразу'); read(s); if (s='моя родина беларусь') then writeln ('беларусь моя родина'); if (s='люблю цябе мой родны кут') then writeln ('мой родны кут люблю цябе') end.
Популярные вопросы