Внутри функции вызывается ввод трех чисел со строки, затем из этих чисел составляется список, затем формируется список из всех элементов исходного списка, которые больше нуля, в итоге выводится длина получившегося списка. Мне не хотелось использовать различные счетчики и if-elif, поэтому решение такое.
def func():
a = int(input())
b = int(input())
c = int(input())
numbers = [a, b, c]
return len([number for number in numbers if number > 0])
func()
Можно еще изменить решение так, чтобы введенные числа сразу отправлялись в список.
def func():
numbers = []
for i in range(3):
numbers.append(int(input()))
return len([number for number in numbers if number > 0])
func()
//Автора кода в средневековье бы уничтожила инквизиция
//Pascal ABC.NET v3.1 сборка 1219
Program Stroka;
var S,S1 : string ;
p,k : integer ;
begin
writeln ('vvedite s');
readln(s);
p:=pos(' ', s);
while (p<>0) do
begin
S1 := copy(s,1,P);
writeln(S1);
delete (s,1,P);
P := Pos(' ',S);
inc(k);
end;
S[1]:= upcase(S[1]);
writeln(s);
writeln('Count of words=',k+1);
end.
Пример ввода:
Simple some test text
Пример вывода:
Simple
some
test
Text
Count of words=4
С Т Е П. А Н
19 20. 6 17 1. 15
Это код- каждая буква соответствует своему номеру в алфавите.
Например: А-первая буква в алфавите.
<span>uses crt;
procedure Prost(a:longint;var f:boolean);
var i:longint;
begin
if a<3 then f:=false
else
begin
f:=true;
for i:=2 to round(sqrt(a)) do
if a mod i=0 then f:=false;
end;
end;
var a,b,i,k:longint;
f:boolean;
begin
clrscr;
repeat
writeln('Введите диапазон натуральных чисел a<b:');
readln(a,b);
until (a>=0)and(b>a);
k:=0;
for i:=a to b do
begin
Prost(i,f);
if f then
begin
write(i,' ');
k:=1;
end;
end;
if k=0 then writeln('Простых чисел в интервале ',a,' ',b,' нет!');
readln
end.</span>