Sub mm()
M = Cells(2, 7)
N = Cells(2, 15)
For i = 1 To N
For J = 1 To M
Cells(J + 3, i) = "'*"
Next J
Next i
<span>End Sub</span>
1/8 кб = 1024 / 8 =128 байт
1 символ = 2 байти
отже повідомлення містить 64 символи
Var s: String;
k, kol: Integer;
Begin
kol := 0;
readln(s);
while pos(' ',s) <> 0 do
begin
k := pos(' ',s);
if k <> 0 then
if k = 4 then begin
kol := kol + 1;
delete(s,1,4);
end else
delete(s,1,k);
end;
if length(s) = 3 then begin
kol := kol + 1;
delete(s,1,3);
end;
writeln(kol);
End.