Program DemoSet;
uses crt;
var s:string;
i,k:integer;
begin
k:=0;
clrscr;
write('Введите произвольную строку =>');
readln(s);
writeln('Строка результат');
for i:=1 to length(s) do
begin
if not(s[i] in [1234567890] )then
begin
if s[i] in ['0'..'9'] then inc(k);
write(s[i])
end;
end;
writeln;
writeln('Количество цифр в строке ',k);
readln
end
import random as r
array_ask=[["ты жив?","yes"],["5+5","10"],["5+10","15"]]
for i in range(len(array_ask)):
n=r.randint(0,len(array_ask)-1)
x=input(array_ask[n][0])
if x==array_ask[n][1]:
print(True)
else:
print (False)
Sub Zadanie()
n = CInt(InputBox("n ="))
y = 1
for i = 1 to n
y = y * (2 * i - 1)
next
MsgBox y
End Sub
Может быть и неправильно, проверь при переписывании
OOH, СССР, ГДР, ВУЗ, МГУ, <span> SOS</span>