Задание:
Задание. Составить программу по следующей схеме: Составить программу так, чтобы в строке Иван копал картофель слово картофель заменилось на редис. Илитак: Написать любое простое предложение и написать программу по счету букв считая пробелы и цифры.
Решение:
#1vara: stringbeginwriteln ('Vvedite predlojenie'); read (a); if (a=Иван копал картофель) then writeln ('Иван копал редис') elsewriteln ('Predlojenie vvedeno nepravilno'); end. #2 vara: string; n: integer; beginwriteln ('Vvedite predlojenie'); read (a); n: =length (a); Writeln ('Simvolov v stroke: ',n); end.
Знаете другой ответ?