Ну ребяяят НУЖНО. 1.Исполнитель Кузнечик, первоначально находящийся в точке с координатой 5, выполняет - id1673091020210721 от 891447819danilDanil 21.07.2021 08:18

Question

Информатика: Ну ребяяят НУЖНО. 1.Исполнитель Кузнечик, первоначально находящийся в точке с координатой 5, выполняет следующую программу: вперёд 5 вперёд -2 назад 6 В какой точке окажется Кузнечик? Запиши одно целое число. 2.Исполнитель Чертёжник, первоначально находящийся в точке с координатами (5, 0), выполняет следующую программу: переместиться на (5, -2) переместиться на (-2, 5) переместиться на (0, 10) В какой точке окажется Чертёжник? Запиши одно целое число — сумму координат найденной точки. ​​

891447819danilDanil · Accepted Answer

// Паскаль
// Программа поддерживает латиницу, кириллицу и дефисы

const
// Первая буквы, англ. "a" - 65, но может быть дефис #45
first_letter = #45;
// Последняя буквы, рус. "я"
last_letter = #1103;

var
x: string;
i: integer;
c: char;
// Сколько раз встречает буква в слове
count: array[first_letter..last_letter] of integer;
begin
readln(x);
// Обнуляем массив
for c := first_letter to last_letter do
count[c] := 0;
// Подсчитываем буквы в слове
for i := 1 to length(x) do
inc(count[x[i]]);
// Выводим слово без букв, встречающихся 3 раза
for i := 1 to length(x) do
if count[x[i]] <> 3 then
write(x[i])
end.

MOGZ ответил