4) мышь , клавиатура, монитор
5) мышь , планшет, монитор, клавиатура
6)русские буквы, арабские, римские цифры, + - = ,
Sub Zadanie()
n = CInt(InputBox("n ="))
for i = 1 to n
t = i
s = 0
Do While t > 0
s = s + (t mod 10)^3
t = t \ 10
Loop
if i=s then MsgBox i
next
End Sub
<h2>Пример (при A, B, C = 0)</h2>
- false && false || false = <u>false</u>
- false || (true || false) = false || true = <u>true</u>
- true || (false && false) = true || falce = <u>true</u>
- (false && false) || (false && false) = false || false = <u>false</u>
- (false || false) || (false || falce) = false || false = <u>false</u>
var s : string; symb : char; i : longint;
begin
readln(s);
readln(symb);
if pos(symb,s)=0 then writeln('В этом слове нет этого символа')
else begin
i:=0;
while pos(symb,s)<>0 do begin
write(pos(symb,s)+i,' ');
i:=i+1;
Delete(s,pos(symb,s),1);
end;
end;
writeln;
writeln(i);
end.