В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
kirillshe2012
kirillshe2012
05.04.2021 08:26 •  Информатика

Проанализируйте код программы 5. Если вам нужно повторно открыть файл output.txt и ввести строку t после значения количества символов, то какие вам нужно внести изменения в этот код? Определите их.output. код 5

f = open(‘input.txt’,»r») #(открывает файл для чтения)

s=f.readline() (считывает строку)

h = open(‘output.txt’,»w») (создает файл для записи)

t=»» (организовывает пустую строку)

for i in range(0,len(s)):

if t.count(s[i])==0 (поиск искомой буквы в строке t )

t=t+s[i] (если искомой буквы нет в строке t, тогда добавляет его в эту строку )

h.write(str(len(t)))(записывает значение длины строки t в файл)

f.close()(закрывает файл f)

h.close()( закрывает файл h)

Показать ответ
Ответ:
newsergy81
newsergy81
04.03.2021 10:47
Информационная деятельность - это совокупность действий, направленных на удовлетворение информационных потребностей граждан, юридических лиц и государства.
В целях удовлетворения этих потребностей органы государственной власти и органы местного и регионального самоуправления создают информационные службы, системы, сети, базы и банки данных.
Порядок их создания, структура, права и обязанности определяются Кабинетом Министров Украины или другими органами государственной власти, а также органами местного и регионального самоуправления.
0,0(0 оценок)
Ответ:
evgenijpetrov
evgenijpetrov
08.03.2023 07:22
Vara,b,c,d,x1,x2: real;
begin
writeln('Дано уравнение вида ax^2+bx+c=0');
Writeln ('Укажи переменную "a"');
readln(a);
Writeln ('Укажи переменную "b"');
readln(b);
Writeln ('Укажи переменную "c"');
readln(c);
if a = 0
 then writeln('Не квадратное уравнение!')
 else begin
      d:= sqr(b)-4*a*c;
      if d < 0 then writeln('Нет корней')
               else begin
                    x1:= (-b+sqrt(d))/2*a;
                    x2:= (-b-sqrt(d))/2*a;
                    writeln ('X1 =',x1,'  X2 =',x2);
                    end;
      end;
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота