<span>def slovo(n)<span>:
</span> print("Найбільше букв в слові: ",max(n.split(),key=len) )
print("Його довжина: ",len(max(n.split(),key=len)) )
n = str(input("Введіть речення: \n"))
slovo(n)</span>

0 0

4 года назад

Помогите, пожалуйста, составить программу, в который выводят ответ: если вы получили 2, то вас ругают, а иначе хвалят

макс11

PascalABC:

program ocenka; //название программы
var a:integer; //целочисленная переменная оценки
begin
writeln(a); //ввод (с клавиатуры) значения оценки
if (a=2) then writeln('Плохо') else writeln('Хорошо'); //условие (если а=2 -
// ругаем, иначе - хвалим)
end.

0 0

4 года назад

Помогите, пожалуйста, найдите в каждом ряду лишнее слово

Anonym profile

1)джойстик
2)?
3)процессор
4)принтер
5)системный блок
6)системный блок
7)видеокарта
8)enter
9)цветной принтер

0 0

4 года назад

СРОЧНО!!!!!!!!!! Написать программу в Паскаль 1) Дано n число, верно ли, что сумма его цифр четное число 2) Найдите сумму его ци

white2cat

Первая
var n,a:integer;
begin
a:=0;
WriteLn(n);
while n>0 do
begin
a:=a + (n mod 10);
n:=n div 10;
end;
end.

Вторая
var n,a:integer;
begin
a:=0;
WriteLn(n);
while n>0 do
begin
if n mod 10>5 then
begin
a:=a + (n mod 10);
end;
n:=n div 10;
end;
end.

0 0

4 года назад