Задание
s2:= s1 -
s1:= s2*
sm2:=sm1; for i:= 32 to 127 do
if char\(i\) in sc then inc\(sm1\) else
if char\(i\) in s1 then inc\(sm2\);
write\(sm1:4,sm2:4\); readln;
end.
Что будет выведено на экран в результате выполнения программы:
var sc, s1, s2: set of char;
i,sm1,sm2: integer;
begin
sc:=
\['a'\.\.'f','A'\]
; s1:=sc + \['1'\.\.'8'\]
;s2:= s1 -
\['F'\.\.'a'\]
;s1:= s2*
\['a','b','3'\.\.'6'\]
; sm1:=0;sm2:=sm1; for i:= 32 to 127 do
if char\(i\) in sc then inc\(sm1\) else
if char\(i\) in s1 then inc\(sm2\);
write\(sm1:4,sm2:4\); readln;
end.
- 7 4
- 7,4
- 7 6
- 6 4
- 6 0
- Программа вызовет ошибку при компиляции
- Программа вызовет ошибку при выполнении