Чертежнику был дан для исполнения следущий алгоритм: повтори 4 раз сместиться на (-1,-1) сместиться на (2,2) сместиться на (3,-3)какую команду надо выполнить чертежнику, чтобы вернуться в исходную точку, из которой он начал движение?
Ты знаешь как прочитать данные из скачанного файла? - Нет?
Тогда я тебе подскажу. Для начала я скину тебе файл, после чего ты его скачаешь.
Сделал? - Хорошо
Теперь, когда ты его скачал, зайди на главный экран своего ПК/Ноутбука и нажми на эконку - Мой компьютер - Скачанные файлы - Выбери файл который я тебе отправил - Распаковать через Microsoft Exe.
Вот мой друг, я тебе подробно расказал как открыть и прочитать данные из файла который тебе скинули.
Если тебе не сложно то можешь сделать ответ лучшим, мне будет очень приятно.
А) var s:string; mas:array ['a'..'z'] of longint;{индексы элементов соответствуют латинице} c:char; i:longint; begin read(s); for c:='a' to 'z' do{заполнение нулями элементов массива, для запоминания количества элементов в латинице} mas[c]:=0; for i:=1 to ord(s[0]) do{пробегаем по всей строке ord(s[0]) это количесвто элементов в строке (только паскаль)} mas[s[i]]:=mas[s[i]]+1; for c:='a' to 'z' do{пробегаем по массиву значений и выводим только неповторяющиеся} if(mas[c]=1) then writeln(c); end.
Привет мой друг.
Ты знаешь как прочитать данные из скачанного файла? - Нет?
Тогда я тебе подскажу. Для начала я скину тебе файл, после чего ты его скачаешь.
Сделал? - Хорошо
Теперь, когда ты его скачал, зайди на главный экран своего ПК/Ноутбука и нажми на эконку - Мой компьютер - Скачанные файлы - Выбери файл который я тебе отправил - Распаковать через Microsoft Exe.
Вот мой друг, я тебе подробно расказал как открыть и прочитать данные из файла который тебе скинули.
Если тебе не сложно то можешь сделать ответ лучшим, мне будет очень приятно.
var s:string; mas:array ['a'..'z'] of longint;{индексы элементов соответствуют латинице} c:char; i:longint; begin read(s); for c:='a' to 'z' do{заполнение нулями элементов массива, для запоминания количества элементов в латинице} mas[c]:=0; for i:=1 to ord(s[0]) do{пробегаем по всей строке ord(s[0]) это количесвто элементов в строке (только паскаль)} mas[s[i]]:=mas[s[i]]+1; for c:='a' to 'z' do{пробегаем по массиву значений и выводим только неповторяющиеся} if(mas[c]=1) then writeln(c); end.