Регистрация
kust2
19.07.2021 01:48
Информатика
Есть ответ 👍

Написать программу в турбо паскале. : дан текстовый файл f. исключить гласные буквы из строк и поместить результат в файл q.

245
395
Посмотреть ответы 2

Ответы на вопрос:

Anna200689898098654
Anna200689898098654
4,5(63 оценок)
Var   f, q: text;   i: integer;   s: string; begin   assign(f, 'in.txt');   reset(f);   assign(q, 'out.txt');   rewrite(q);   while not eof(f) do   begin     readln(f, s);     i : = 1;     while (i < = length(s)) do     begin       if (upcase(s[i]) in ['а', 'е', 'ё', 'и', 'о', 'у', 'ы', 'ю', 'я']) then         delete(s, i, 1);       inc(i);     end;     writeln(q, s);   end;   close(f); close(q); end.
НастМал
НастМал
4,4(38 оценок)

Если там явно будет двухзначное то:

print(f'Сумма = {int(input("Первое число: ")) + int(input("Второе число: "))}')

Популярно: Информатика