Определить, есть ли в данной строке одинаковые слова. Нужен полноценный, работающий код программы.Заранее благодарю.

Знания

Информатика

1 ответ:

Nftali [43.6K]4 года назад

0 0

Вам какой язык надо? Пример на python:

#s - данная строка
def check_for_duplicates(s):
return len(s.split()) != len(set(s.split())) # возвращает True, если имеются одинаковые слова

Читайте также

Помогите решить информатику(желательно с решением и ответом)

николай санкин

Проанализировав таблицу, можем заметить, что стоимость между станциями В и D= 2, а этому условию соответствует одна единственная схема под номером 1. Ответ: 1

0 0

1 год назад

Найти сумму чисел 2^2+3^3+4^4...6^6 (pascal)

Skhrystynka

Var
s,i : integer;
begin
s :=0;
for i := 2 to 6 do
s := s + sqr(i);
writeln (s);
end.

0 0

4 года назад

1. Написать программу для паскаль, которая распечатывает таблицу умножения от 1 до 5. 2. Написать программу для пакаль, которая

ЕленаВас1981 [20]

1)
program chik;
var i,j:integer;
begin
for i:=1 to 5 do
for j:=1 to 10 do
writeln(i:2,'*',j:2,'=',i*j:2);
<span>end.
</span>2)
program chik2;
var i,j:integer;
begin
for i:=1 to 9 do
for j:=1 to 8 do
if(i mod 2=1)and(j mod 2=0)then writeln(i:2,'*',j:2,'=',i*j:2);
end.

0 0

4 года назад

Напишите код для нахождения количества целых чисел

djnic

Int num;
for(int i = 0; i < k; i++) if(arr[i] == int(arr[i]) num++;

num - количество целых чисел
k - количество интераций

0 0

4 года назад

Найти сумму двух наибольших из трех заданных чисел. В Паскале.

Юрий Лукьянов

Var
    a, b, c, t: integer;

begin
    readln(a, b, c);
    if c > b then begin
        t := b;
        b := c;
        c := t;
    end;

    if c > a then begin
        t := a;
        a := c;
        c := t;
    end;
    writeln(a + b);
end.

0 0

4 года назад