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

Нужно написать программу в python. , .
в текстовом файле находятся записи о номерах телефонов. в каждой строке записана информация об одном абоненте: № телефона, фио, адрес. необходимо решить с использованием функций . для представления данных удобно использовать словари.
1)напишите программу, которая осуществляет поиск абонента с заданным именем.
2)в текстовом файле записан текст, в котором встречаются целые числа. известно, что числа отделены от окружающего текста хотя бы одним пробелом. напишите программу которая находит сумму всех встретившихся в тексте чисел.

Показать ответ
Ответ:
Ķрičтina
Ķрičтina
01.04.2023 04:54

ответ:

var

        str: string;

        i, count: integer;

begin

        write('your string: ');

        readln(str);

        i : = length(str);

        if i > 0 then begin

                count : = 1;

                while i > 0 do begin

                        if str[i] = ' ' then

                                count : = count + 1;

                        i : = i - 1;

                end;

        end

        else

                count : = 0;

        writeln('number of words: ', count);

readln;

end.

объяснение:

0,0(0 оценок)
Ответ:
tt9692069
tt9692069
20.04.2021 12:24
//В числовой последовательности из N произвольных целых чисел определить количество пар соседних элементов, 
//сумма модулей которых равна модулю заданного числа М.
function CountPair(N, m: integer; a: array of integer): integer;
begin
result := 0;
Assert(N >= 0);
for var i := 0 to a.Length - 2 do
begin
if abs(a[i]) + abs(a[i+1]) = abs(m) then
result += 1;
end;
end;

begin
var n := ReadInteger;
var m := ReadInteger;
var a: array of integer;
Setlength(a, n);
for var j := 0 to a.Length - 1 do
begin
a[j] := ReadInteger;
end;
Write('Количество пар = ', CountPair(n, m, a));
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота