Написать программу для ввода значения величины x целого типа, присваивания величине y действительного - id32627820220223 от незнайка3333333333 23.02.2022 23:53

Question

Информатика: Написать программу для ввода значения величины x целого типа, присваивания величине y действительного типа значения 2.5 , вычисления значения величины z=x/y и вывода значения величины z. протестировать алгоритм для x=5, x=0, x=-8.75

незнайка3333333333 · 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 ответил