Задание:
Дана строковая величина вывести на экран второе слово. Информатика Turbo Pascal
Решение:
var a: string; for i: =1 to length (a) dog: =i; if a[i]=' then beginfor g to length (a) writeln (a[g]); end;
Знаете другой ответ?
Дана строковая величина вывести на экран второе слово. Информатика Turbo Pascal
var a: string; for i: =1 to length (a) dog: =i; if a[i]=' then beginfor g to length (a) writeln (a[g]); end;
Знаете другой ответ?